Найти сумму трехзначных чисел. использовать цикл с параметром. (сделайте в паскаль, )

224

388

Посмотреть ответы 2

Ответы на вопрос:

tayteldiyev2005

Информатика

4,6(27 оценок)

Program сумма; var otvet: string; sled: = true; chislo: =0; i,b, summa: integer; begin write('сколько чисел вы хотите суммировать? '); read(b); for i: =1 to b do begin write('введите трёхзначное число: '); read(chislo); while (chislo < 100) or (chislo > 1000) do begin write('число не трёхзначное, попробуйте ещё раз! '); read(chislo); end; summa+=chislo; end; write('сумма равна ', summa); end.