Написать программу (в Free Pascal) выевляющую все числа…

75

Написать программу (в Free Pascal) выевляющую все числа, которые делятся на 7 без остатка. От 1 до 1000! ПОМОГИТЕ ПОЖАЛУЙСТА! МНЕ ЭТО НА ЗАВТРАНАДО

категория: информатика

ответить

в избранное

92

vladimirus9

22 февраля 2023

Var i: integer; begin for i: =1 to 1000 do if i mod 7=0 then writeln (i); readln; end.

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

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

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

Знаете другой ответ?

Задайте свой вопрос

Смотрите также:

Каким путем увеличивается производительность процессора в настоящее время?

Любой материальный объект, используемый для фиксации и хранения на нем информации 1 слово 8 букв, 2 слово 10 букв

Кластер, дифрагментация, сектор. Кратко о каждом по несколько предложений что это и зачем ононужно

1. Для чего служат в HTML символы : а) для выделения абзаца б) для выделения параграфа…

Сумма всех нечетных чисел от 1 до 100

У исполнителя Калькулятор две команды: 1. Прибавить…

Передача информации происходит в результате информационного процесса а) получение б) обработка в) хранениег) защита

Решите следующий пример. В ответе укажите получившееся число в нужной системе счисления. 1238+5447=?

Дан массив целых чисел: вывести произведение четных элементов массива и минимальныйэлемент

27400

14822

Английский язык

14216

Биология

7369

720

Экономика

18829

8304

География

15850

Геометрия

5255

Информатика

11818

23332

15992

Литература

73118

Математика

8152

Обществознание

466

Правоведение

46271

Русский язык

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!

Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!

Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...