Подсчитать сколько чисел кратных трем содержится на отрезке числовой…

Question

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

Answer 1

99

olegon26rus

13 апреля 2023

Через массив: 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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: