Ответы на вопрос:
var a,b,c,p: integer;
begin
readln(a,b,c);
if a> 0 then begin p: =p*a; writeln(a); end;
if b> 0 then begin p: =p*b; writeln(b); end;
if c> 0 then begin p: =p*c; writeln(c); end;
writeln('произведение: ',p);
end.
Популярно: Информатика
-
dshvedova0622.03.2021 17:14
-
Айзат121а06.10.2021 18:37
-
MishaZuev103.07.2021 08:01
-
darkbluefox17.06.2023 00:58
-
Krasotcakotik04.10.2022 05:03
-
жанна1988225.07.2022 11:36
-
SRALIK26.04.2022 10:32
-
лиьомьм13.09.2022 16:30
-
lipovtsev201611.05.2022 00:21
-
tarlavinEgor31.08.2020 15:17