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

Primary tabs

Submitted by testok on Tue, 10/13/2020 - 09:24

Forums:

Решение задачи 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.
  • Log in to post comments
  • 6187 reads
gani84's picture

gani84

Sat, 10/17/2020 - 17:54

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

testok

Fri, 10/30/2020 - 05:19 

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

vedro-compota

Sun, 11/01/2020 - 16:57

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

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

sergio

Sat, 11/21/2020 - 13:38

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

sergio

Sat, 11/21/2020 - 13:57 

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

sergio

Mon, 11/23/2020 - 19:51

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

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