Задача 11 Урок 11

Primary tabs

Submitted by jl8qy9kd_pro on Thu, 07/22/2021 - 12:08

Forums:

http://fkn.ktu10.com/?q=node/7341

Вывести на экран все числа от 4 до 100 с шагом 4, т.е.:
4 8 12 16.......100

var i: integer;
begin
  i := 4;
    while(i <= 100) do
       begin
         if((i mod 4) =0) then
         write(i, ' ');
         i := i + 1;
       end;
  readln();
end.
  • Log in to post comments
  • 1152 reads
vedro-compota's picture

vedro-compota

Sun, 07/25/2021 - 13:58

можно шаг не на 1 а на 4, тогда проверка не понадобится

_____________
матфак вгу и остальная классика =)

jl8qy9kd_pro

Tue, 07/27/2021 - 10:30 

var i: integer;
begin
  i := 4;
    while(i <= 100) do
      begin
        write(i, ' ');
        i := i + 4;
      end;
  readln();
end.
vedro-compota's picture

vedro-compota

Tue, 07/27/2021 - 19:01

решение засчитано

_____________
матфак вгу и остальная классика =)