paskal 05 (Все готовые лабы по паскалю)
Описание файла
Файл "paskal 05" внутри архива находится в следующих папках: 1kyrs_1semestr_paskal_labworks, 1 лабораторка. Документ из архива "Все готовые лабы по паскалю", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве МГТУ им. Н.Э.Баумана. Не смотря на прямую связь этого архива с МГТУ им. Н.Э.Баумана, его также можно найти и в других разделах. Архив можно найти в разделе "лабораторные работы", в предмете "информатика" в общих файлах.
Онлайн просмотр документа "paskal 05"
Текст из документа "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. вычислить сумму квадратов этого числа и квадратов цифр этого числа.