Напишите программу, которая вычисляет сумму всех двухзначных чисел.
Напишите программу, которая вычисляет сумму всех двухзначных чисел.
Гость
Ответ(ы) на вопрос:
Гостьvar a,b:integer;
begin
a:=0;
for b:=10 to 99 do
a:=a+b;
writeln (a);
end.
Через repeat
program znanija;
var a,b:integer;
begin
a:=0;
b:=10;
repeat
a:=a+b;
inc(b); // Прибавляем единицу к переменной b. Тоже самое что b:=b+1;
until b>99;
writeln (a);
end.
Не нашли ответ?
Похожие вопросы