Напишите программу, вычисляющую сумму всех нечетных чисел от 1 до н, использовать цикл с постусловием
Ответы
Ответ дал:
0
var
n, i, s: integer;
begin
s := 0;
i := 0;
read(n);
repeat i := i + 1;
if(i mod 2 <> 0) then s := s + i;
until i = n;
write(s);
end.
n, i, s: integer;
begin
s := 0;
i := 0;
read(n);
repeat i := i + 1;
if(i mod 2 <> 0) then s := s + i;
until i = n;
write(s);
end.
Вас заинтересует
1 год назад
1 год назад
5 лет назад
5 лет назад
8 лет назад
8 лет назад
8 лет назад