Написать 3 программы. Каждая программа должна подсчитывать сумму чисел от 10 до 20. Одна программа должна быть сделана через цикл While, вторая - через цикл Repeat, третья - через цикл For.
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Через WHILE:
var s,i: integer;
begin
i:=10;
while (i<=20) do
begin
s:=s+i;
i:=i+1;
end;
write('Сумма чисел от 10 до 20 равна ',s);
end.
Через REPEAT:
var s,i: integer;
begin
i:=10;
repeat
begin
s:=s+i;
i:=i+1;
end;
until (i>20);
write('Сумма чисел от 10 до 20 равна ',s);
end.
Через FOR:
var s,i: integer;
begin
for i:=10 to 20 do s:=s+i;
write('Сумма чисел от 10 до 20 равна ',s);
end.