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





Случайные файлы

Файл
166842.doc
160299.rtf
5288.rtf
181913.rtf
141928.rtf




Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.