Добавил:
Источник:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:01 семестр / Лабораторные работы / Все готовые лабы по паскалю / 1 лабораторка / paskal 05
.doc
-
Текст программы:
program dima;
var
summa, kv,n,n1,n2,n3,n4:integer;
begin
writeln ('vvedite chislo');
readln (n);
kv:=2*sqr(n);
n1:=n div 100;
n2:=n mod 100;
n3:=n2 div 10;
n4:=n2 mod 10;
summa:=sqr(n1)+sqr(n3)+sqr(n4);
writeln ( 'Summa kvadratov chisel- ',summa);
writeln ('Summa kvadratov chisla- ',kv);
readln;
end.
-
Исходные данные: Chislo 4
Результат: Summa kvadratov chisel-16; summa kvadratov chisla-32
3) дано натуральное число n. вычислить сумму квадратов этого числа и квадратов цифр этого числа.
Соседние файлы в папке 1 лабораторка