Ввести несколько чисел. Найти сумму чисел лежащих в интервале от 10 до 15

Question

34

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

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

flash1222 · Accepted Answer

45

flash1222

29 марта 2023

var tmp, sum: integer; begin sum: =0; while not eoln do begin read (tmp); if (tmp >=10) and (tmp <= 15) then sum: =sum+tmp; end; writeln (sum); end.

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

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