Даны три целых числа. Написать программу выводящую те из них которые…

Question

Даны три целых числа. Написать программу выводящую те из них которые больше нуля и подсчитывающую их произведение. И сделайтеблок-схему.

Answer 1

95

twist_vrn

19 февраля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: