ОЧЕНЬ СРОЧНО! Pascal ABC. Нужно вычислить и вывести сумму чётных целых чисел в интервале от 1 до n:
1. цикл «ДО» (repeat)
2. цикл «ПОКА» (while)
3. цикл «ДЛЯ» (for)
1. цикл «ДО» (repeat)
2. цикл «ПОКА» (while)
3. цикл «ДЛЯ» (for)
More Questions From This User See All
Answers & Comments
1)
var i, S, N: integer;
begin
writeln('Введите N:');
readln(N);
repeat
if i mod 2=0 then S:=S+i;;
inc(i)
until i>n;
writeln('Сумма всех четных чисел 1 до ',N,' равна: ',S);
readln;
End.
2)
var i, S, N: integer;
begin
writeln('Введите N:');
readln(N);
while i<=N do
begin
if i mod 2=0 then S:=S+i;
i:=i+1;
end;
writeln('Сумма всех четных чисел 1 до ',N,' равна: ',S);
end.
3)
var i, S, N: integer;
begin
writeln('Введите N:');
readln(N);
for i:=1 to N do
if i mod 2=0 then S:=S+i;
writeln('Сумма всех четных чисел 1 до ',N,' равна: ',S);
end.