Регистрация
Avakado01
28.08.2020 04:56
Информатика
Есть ответ 👍

Логические выражения !

272
384
Посмотреть ответы 1

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

tayteldiyev2005
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.

Популярно: Информатика