Задание:
С клавиатуры вводится 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.
Знаете другой ответ?
С клавиатуры вводится 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.
Знаете другой ответ?