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

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

Показать ответ

Ответ:

AnastasiaVolk534

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 оценок)

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

Winstorm

03.12.2021 09:40

Программада жасалған модельге қандай атау беріп сақтауға болады?...

rusnak79

25.09.2021 14:01

Решить с дано средняя скорость передачи данных по некоторому каналу связи равна 5 мб /секунду определить сколько понадобится секунд чтобы передать поэтому каналов 80 страниц...

domiradps

19.03.2023 11:27

Определить,принадлежит ли точка с координатой х заданной области?...

armine8

19.03.2023 11:27

справедливы неравенства а 0 или в -2 .проверить истинность высказывания....

Unicorn789

19.03.2023 11:27

Дан рост трех друзей. как написать программу которая определяет их среднийрост на языке pascalabc?...

pigurska

19.03.2023 11:27

Самолёт находится на высоте 5000 метров. обнаружилась неисправность работы двигателя. самолёт начал падать. бортовой компьютер про-изводит диагностику неисправности и сообщает...

katyakot2299

11.02.2020 05:30

Нужны решения! в основании призмы лежит равносторонний треугольник площадь которго 9* √3.найти v призмы,если ее высота в √3 раз больше стороны основания!...

elizabethniall

11.02.2020 05:30

Проанализируйте содержимое , проведите ее разбор и решите в форме вопросов и соответствующих действий: капитан теплохода получил пройти 540 км за 16 часов. 180 км теплоход...

emeljanenkoira

11.02.2020 05:30

Какой объём занимают 2 моля воды (см³)? м=18 г/моль; р=1000 кг/м³...

13579014

11.02.2020 05:30

Найдите период обращения спутника, движущегося вокруг некоторой планеты вблизи ее поверхности, если средняя плотность планеты равна 3,3...

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

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