
Константин
5 год назад
СРОЧНООООЗадание 2. Напишите алгоритм с циклом Repeat, вычисляющий квадраты N чисел, введенных с клавиатуры.Sqr(i) – вычисление квадрата числаЗадание 3. Напишите алгоритм с циклом Repeat, вычисляющий сумму 10 чисел,введенных с клавиатуры.S:=S+i; – накопление суммы чисел (сумматор)
ОТВЕТЫ

Elka
Oct 24, 2020
program z2;
var i,n: integer;
begin
write ('n = ');
readln (n);
repeat
write ('i = ');
readln (i);
writeln ('Sqr(',i,') = ',Sqr(i));
n:=n-1
until n=0;
end.
program z3;
var i,n,S: integer;
begin
n:=10;
repeat
write ('i = ');
readln (i);
S:=S+i;
n:=n-1
until n=0;
writeln('S = ',S)
end.
13
Смежные вопросы: