Задать вопрос
27 июня, 08:03

В интервале от 10 до 20 найти все числа, которые делятся на 3 без остатка. Паскаль.

+1
Ответы (1)
  1. 27 июня, 10:24
    0
    Program abc;

    var x, i:integer;

    begin;

    for x:=10 to 20 do

    if x mod 3 = 0 then writeln (x);

    end.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «В интервале от 10 до 20 найти все числа, которые делятся на 3 без остатка. Паскаль. ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы