Даны два целых числа A и B (A < B). Найти сумму всех целых чисел от A до B включительно. Написать программу с while НА ПАСКАЛЕ ПЖ ПОМОГИТЕ
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
program Summa;
var
A, B, Sum: Integer;
begin
writeln ('Введите число А:');
readln(A);
writeln ('Введите число B:');
readln(B);
while A <= B do begin
Sum := Sum + A;
A := A + 1;
end;
writeln ('Сумма:', Sum);
end.
Объяснение: