подсчитать сколько чисел кратных трём содержится на отрезке числовой прямой от 1 до n( цикл с параметром)

1

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

2013-04-24T16:31:28+04:00

через массив:

Program Free_Pascal;

Uses crt; 

const N=100; 

var a:array [1..N] of integer;

  i,col:integer;

BEGIN

 CLRSCR; 

 col:=0;

 for i:=1 to N do

  begin

   a[i]:=i;

  if (a[i] mod 3=0) then col:=col+1; 

  end; 

 writeln('Колличество чисел кратных трем: ',col);

READKEY;

END. 

 

Вариант попроще:

var n,i,col:integer; 

 

BEGIN

 col:=0; n:=100

 for i:=1 to n do

  if (i mod 3=0) then col:=col+1; 

 writeln('Колличество чисел кратных трем: ',col);

READLN;

END.