Запишите несколько примеров исполнителей-технических устройств, с которыми вы встречаетесь в повседневной жизни.
155
330
Ответы на вопрос:
Var a: array[1..1000]of integer; b: array[1..1000]of integer; i,n,summ: integer; begin writeln('введите кол-во цифр'); readln(n); writeln('введите цифры'); for i: =1 to n do readln(a[i]); for i: =1 to n do begin if (a[i]> =10)and (a[i]< 100) then b[i]: =a[i]; end; for i: =1 to n do begin if (a[i]> =100) and (a[i]< 1000) and (a[i] mod 4=0) then summ: =summ+a[i]; end; for i: =1 to n do begin if b[i]> 0 then write(b[i],' '); end; writeln; write('сумма 3-х значных чисел кратных 4=',summ); end.
Популярно: Информатика
-
Victoria20018803.06.2021 06:40
-
chekirisalina23.04.2020 00:59
-
счастье10103.12.2021 05:32
-
менюпользователя07.05.2022 09:20
-
rik17213.01.2020 18:17
-
назик3130.11.2020 11:15
-
Kerri11cjdgg22.11.2020 16:49
-
valeriia823.08.2020 02:51
-
Veronika7256304.12.2021 13:16
-
den11111111111314.09.2022 06:12