Сколько существует четырёхзначных чисел кратных 3?Помогите пожалуйста...

Ответы:

Stasya Panyutina

13-01-2016 22:59

var i,x:integer;beginfor i:=1000 to 9999 doif i mod 3 = 0 then inc(x);end.Вроде бы всё.

Медина Лещенко

13-01-2016 23:53

Var k,i:integer;Begink:=0;For i := 1000 to 9999 do If i mod 3 = 0 thenk:=k+1;Write(k);end.

Также наши пользователи интересуются:

Картинка с текстом вопроса от пользователя Заур Бобров

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Сколько существует четырёхзначных чисел кратных 3?Помогите пожалуйста...» от пользователя Заур Бобров в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!