Составить блок-схемуданы 3 числа (любых), программа - вопрос №3194806 от Околофутбольник 11.02.2020 19:31

Question

Информатика: Составить блок-схемуданы 3 числа (любых), программа должна посчитать и вывести кол-во чисел, которые делятся на три

Околофутбольник · Answer

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.