Представь что твоя программа решает математический пример х=(а*5)+10 Исходные данные (а) Результат (х)
5
10
100
140
249
Ответы на вопрос:
1. var a,z: integer; begin z: =1; readln(a); while a< > 0 do begin if a< 0 then z: =-z; readln(a); end; if z=-1 then writeln('произведение отрицательных чисел отрицательно') else writeln('произведение отрицательных чисел положительно'); end. пример: 12 -45 -87 -20 0 произведение отрицательных чисел отрицательно2.var n,a,x,s,i: integer; beginreadln(n,a); s: =0; for i: =1 to n do begin readln(x); if x> a then s: =s+x end; writeln('s = ',s); end.пример: 5 304815802932s = 160
Популярно: Информатика
-
Hkolnik3221.06.2023 23:09
-
gubanvitalya19.06.2021 07:03
-
Mastermastack05.11.2021 07:50
-
Drzk04.06.2022 20:00
-
Makc92019.08.2020 19:42
-
Laurka1109.09.2021 23:29
-
belatarikova18.12.2022 03:05
-
innagavr22.06.2023 01:49
-
YaKuss05.02.2022 14:23
-
Angel2864804.12.2021 13:47