Регистрация
timkoa
25.02.2021 09:05
Информатика
Есть ответ 👍

Составить алгоритм суммы s всех двузначных чисел

112
161
Посмотреть ответы 2

Ответы на вопрос:

MaFFakA
MaFFakA
4,6(55 оценок)
Var s,i: integer; begin s: =0; for i: = 10 to 99 do       s: =s+i; writeln('s = ',s); end.
Kek1928
Kek1928
4,8(41 оценок)

1.

begin

var a,b:integer;

a:=1;

b:=0;

while a<=10 do begin

b:=b+a;

a+=1;

end;

writeln(b);

end.

2.

begin

var a,b:integer;

a:=1;

b:=0;

repeat

b:=b+a;

a+=1;

until a > 10;

writeln(b);

end.

Популярно: Информатика