Ответы на вопрос:
1. var a, b, c: real; d: integer; begin readln(a, b) ; s: =a*b; write(s) ; end. 2. var a, b, c: real; d: integer; begin d: =0; readln(a); if (a> 0) then d: =d+1; readln(b) ; if (b> 0) then d: =d+1; readln(c> 0) then d: =d+1; write(d); end.
Популярно: Информатика
-
ban2005040828.06.2021 11:53
-
ABAYMALGAZHDAROvvv22.04.2023 15:32
-
WiTeKHasky24.11.2020 00:52
-
56754567667601.01.2021 09:00
-
arina127113.04.2023 15:10
-
coollkid15.02.2022 08:02
-
Софія13306.09.2020 11:30
-
ритттт11.05.2022 01:40
-
hhwjsbjweujskzks07.12.2020 06:00
-
TrueStOrY13320.11.2022 10:16