Помогите написать задачу на паскале (с оператором For) даны два целых числа A и B (A <…

Question

63

Помогите написать задачу на паскале (с оператором For) даны два целых числа A и B (A < B). Найти сумму всех целых чисел от A до Bвключительно

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

nikolaenko2013 · Accepted Answer

81

nikolaenko2013

28 августа 2022

var A, B, i, Summ: Integer; begin Writeln ('Введите числа: '); Readln (A, B); Summ: =0; for i: =A to B do Summ: =Summ+i; Writeln ('Сумма равна: ', Summ); Readln; end.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: