Войти Регистрация Спроси ai-bota

Вывести на экран все числа делящиеся на 3 или на 7 в промежутке от 1 до 1000

Ответ:

snezhana9197

23.05.2020 15:21

var i:integer;

begin

for i:=1 to 1000 do

if (i mod 3=0) or (i mod 7=0) then write(i);

end.

0,0(0 оценок)

Популярные вопросы: Информатика

staylent

21.07.2022 01:27

Паскаль: написать программу для определения в двумерном массиве целых чисел d[6,6] максимальный элемент под главной диагональю. оформить ввод/вывод массива....

tusovki

21.07.2022 01:27

На паскале написать программу и составить блок схему для определения максимального значения функции w(y)=sin(y)-cos(y+2) если переменная y меняется в интервале...

kseniyes5454

19.09.2020 15:45

Вгостинице живут артисты цирка дай им имена и опиши в таблицах их состав действия и отличительные признаки...

dimalvov1993

03.02.2022 21:12

Розничная цена костюма составляет p руб.торговая скидка в пользу магазина т% розничной цены.составить алгоритм вычисления оптовой цены костюма...

Holmes9

23.02.2020 23:24

Для выполнения этого необходимо создать массив из n элементов (const n=10; ). строку const n=10; в окно тестирующей системы вставлять не нужно -- тестирующая система...

иваивиыви

14.03.2023 10:04

Дан двумерный массив(4*5) написать программу, которая определит кол-во четных элементов двумерного массива. заполонить с клавиатуры....

ПитерДина

12.08.2020 18:17

Палиндромы какое минимальное количество символов необходимо заменить на другие в строке acccaccbaaccbaccacab, чтобы после замены строка стала палиндромом (каждый...

Таня5463

12.08.2020 18:17

Вычисли информационный объём в слове наука...

Haranmeu

12.08.2020 18:17

№1. необходимо составить программу расчета конечной суммы и сравнения полученного результата с контрольным значением. число членов суммы вводится с клавиатуры....

Gabueva02

15.02.2022 07:09

При работе с электроной таблицей в ячейку f1 записана формула: =f3*7+d$2. какой вид приобретет формула, после того как ячейку f1 скопируют в ячейку e5...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку