с клавиатуры вводится 3 числа. найти сумму чисел от 2 до 3. вывести на экран.
var
a, b, c, i, sum : integer;
begin
read (a, b, c);
sum := 0;
for i := b to c do inc (sum, i);
writeln (sum);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
a, b, c, i, sum : integer;
begin
read (a, b, c);
sum := 0;
for i := b to c do inc (sum, i);
writeln (sum);
end.