Question

De elaborat un program care calculează produsul numerelor care se divid la 5, din intervalul de la 1 la n, unde n se introduce de la tastatură. Pascal​

Answer 1

Răspuns:

Program P1;

var a,b,c: Integer;

begin

readln(a);

for b:= 1 to a do

begin

if ( b mod 5 = 0 ) or ( b mod 5 = 5 ) then

write(b, ' ');

end;

end.