👤
a fost răspuns

folosind instructiunea "for" parcurgeti nr de la 1 la 20 si calculati suma nr. pare

Răspuns :

var i,p:byte;
begin
for i:=1 to 20 do if i mod 2 = 0 then p+=i;
Writeln('Suma numerelor pare: ',p);
end.

Alte intrebari