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


Yuki16
14.12.2021 10:23

Написать программу( в free pascal) выевляющую все числа, которые делятся на 7 без остатка. от 1 до 1000! мне это на завтра надо

Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
2003nur
2003nur
30.05.2023 18:34
Ооочень Файл размером 2 Кбайт передается через некоторое соединение 64 секунды. Определите скорость передачи данных в бит/с. В ответе запишите только число​...
anser8539
anser8539
25.03.2020 13:38
Задачи по определению количества информации Дано Решение Найти...
9Kira9
9Kira9
02.03.2020 17:53
Определите информативность сообщения «А+B=C», если для описания математических формул необходимо воспользоваться 64-символьным алфавитом?...
av2164
av2164
03.08.2021 06:07
Определите количество видеороликов размером 512 Мбайт, которые можно записать на новую флешку емкостью 16 Гбайт? В ответе напишите только число. ​...
sea131281
sea131281
20.09.2021 09:58
Посол государства, в котором используется алфавит из 1024 знаков,составил ноту протеста из 2 страниц,причем на каждой странице по 100 строк и в строке по 75 символов.Определить...
скорпион67
скорпион67
05.05.2023 06:04
Задача 1. Определить напряжение сети, которое необходимо приложить к зажимам катушки, чтобы в ней протекал ток в 17 А, если активное сопротивление катушки r равно10 Ом, а...
olesm
olesm
12.04.2020 21:18
Read the text and identify if the statements are true or false. ) 1. The author thinks that Romeo and Juliet are better than other actors in the play.2. The author thinks...
coldon
coldon
21.02.2021 02:56
срачна надо Listen and choose the correct answer for the questions. The audio:When is Dan’s birthday?What is Dan interested in?When will Mary and Tom meet to wrap the present?BackCheck​...
морж14
морж14
19.04.2020 06:24
Listen again and complete the sentences track 1.27 1. if sophie was president, she would. 2. If classrooms were more comfortable, people would. 3. If Ross was president,...
Chelovek987654321
Chelovek987654321
04.01.2021 00:48
Решите систему управнений ​...
Ответ:
alexxxxarchenko
25.06.2020 18:25
Var i:integer;
begin
 for i:=1 to 1000 do
 if i mod 7=0 then writeln(i);
 readln;
end. 
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота