вывести на экран все числа из отрезка [1,50] которые делятся на 5

желательно представить в виде программмы, тобишь var...begin и т.д

1

Ответы и объяснения

2013-02-01T15:22:22+04:00

program test;
var i:integer;
begin
   for i:=1 to 50 do
      if i mod 5 = 0 then
         write(i, ' ');
   readln;
end.