Учащиеся в качестве волонтеров участвуют в подготовке сертификатов и дипломов победителей школьной олимпиады. Волонтеры должны набрать и
распечатать 350 сертификатов для участников олимпиады. Напишите и обоснуйте
один пример возможного риска для здоровья при длительном использовании
принтера.
Пример риска:
Обоснование:
128
415
Ответы на вопрос:
Var k: array[1..100] of integer; a,n,i,c: integer; begin c: =0; i: =1; a: =999; write('введите n: '); readln(n); writeln('введите a: '); while a< > 0 do beginr eadln(a); if (a> =100) and (a< =999) then begin if ((a div 100)+((a div 10) mod 10)+(a mod 10))=n then begin k[i]: =a; i: =i+1; c: =c+1; end; end; end; if c> 0 then begin writeln('числа, сумма цифр которых равна ',n,': '); for i: = 1 to c do writeln(k[i]); end; end.
Популярно: Информатика
-
nasty30119.03.2020 21:17
-
kuppols08.06.2022 15:20
-
помогите116516.05.2022 03:29
-
nosalyaik20.09.2022 19:41
-
Abzik520318.03.2020 21:16
-
salta1906.04.2023 16:45
-
leronchik200321.04.2020 13:25
-
митцухиро26.11.2020 13:07
-
juehxbrf26.03.2022 16:58
-
yuliya21614.04.2023 03:24