Ответы на вопрос:
Program chislo; var a,b,c,d: integer; begin write('введите a = ' ); readln(a); if a> =0 then d: =d+a; write('введите b = ' ); readln(b); if b> =0 then d: =d+b; write('введите c = ' ); readln(c); if c> =0 then d: =d+c; writeln(d); write('сумма положительных чисел равна ',d) end.
Популярно: Информатика
-
ElenaScience25.11.2022 02:30
-
vladimir123229.05.2020 12:50
-
lenayun09.04.2023 17:33
-
Вова1234567891225.04.2023 18:50
-
Arisha5428.10.2022 11:33
-
Amyy115.04.2020 11:09
-
ушкаа12.07.2020 16:21
-
adri12125.08.2022 15:53
-
Tsaryova2128.06.2020 15:33
-
mashasmirnova170412.05.2021 00:48