спросить у пользователя два числа. используя while посчитать сумму целый чисел между этими числами включительно.Вывести ответ на экран.Решить с помощью паскаль ABC.
Ответы
Ответ дал:
0
var
a, b, sum: Integer;
begin
writeln('Введите числа:');
ReadLn(a, b);
sum := 0;
while b > a - 1 do
begin
sum := sum + b;
b := b - 1;
end;
WriteLn('Сумма чисел = ', sum);
end.
a, b, sum: Integer;
begin
writeln('Введите числа:');
ReadLn(a, b);
sum := 0;
while b > a - 1 do
begin
sum := sum + b;
b := b - 1;
end;
WriteLn('Сумма чисел = ', sum);
end.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад