Решение задачи 7 из главы 10.1

Решение задачи 7 из главы 10.1

7. Перебирите в цикле все числа от 1 до 100, выведите на экран каждое 7-е число.

program Project7;
var a: integer;
begin
  a:=0;
  while (a < 100) do
  begin
       a:=a+7;
       if (a >= 100) then
        break;
       write(a, ' ');
  end;
  readln();
end.
gani84's picture

Там через for надо решить

program Project7;
var a: integer;
 begin
 for a:=1 to 100 do
   if((a mod 7) = 0) then
    write(a, ' ');
 readln();
end.
vedro-compota's picture

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

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

ну почему только через for ? можно и через while

n = 100
i = 7
while (i <= n) do
begin
  if(i % 7 == 0) then
     write(i, "  " )
  i += 7
end;

можно вовсе без if

n = 100
i = 7
while (i <= n) do
begin
   write(i, "  " )
   i += 7
end;