От 1 до n вывести все числа, которые кратны 3

Ответы:

Оля Орленко

12-04-2018 00:07

Var n,i:integer;begin read(n);i:=1;repeat begin if i mod 3=0 then writeln(i); end;i:=i+1;until n<iend.

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

Один рабочий работал3дня,по 7 часов, а другой 2дня по 8часов.вместе они изготовили 481 7^x-9^x=0-спосиб пидбору коренив

Картинка с текстом вопроса от пользователя Динара Василенко

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «От 1 до n вывести все числа, которые кратны 3» от пользователя Динара Василенко в разделе Информатика. Задавайте вопросы и делитесь своими знаниями.

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