01 семестр / Лабораторные работы / Все готовые лабы по паскалю / 1 лабораторка / paskal 05

• Текст программы:

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. вычислить сумму квадратов этого числа и квадратов цифр этого числа.