Задание:
Подсчитать сколько чисел кратных трем содержится на отрезке числовой прямой от 1 до n (цикл спараметром)
Решение:
Через массив: 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.
Знаете другой ответ?