tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Напишите программу поиска
Напишите программу поиска всех трехзначных чисел делящихся на 7 т , сумма котрых кратна 7
kakoieshonik
3 02.07.2019 15:50
0
Ответы
kirillan2
02.10.2020 18:33
Pascal ABC
Var
i:integer;
Begin
For i:=100 to 999 do
if i mod 7 = 0 then Write(i,' ')
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
лёха1920
12.01.2022 12:41
ОСТАТОК ОТ ДЕЛЕНИЯ.Напомним, как в математике определяется остаток от деления целых чисел.Для любых целых чисел a и b (b ≠ 0) найдется единственная пара целых чисел q и r таких,...
цыпабезума
12.01.2022 12:22
28 - Системное программное обеспечение 6) 7) 8) 9) 10) 11) 12)...
шахид2
12.01.2022 11:21
Определите,какое из указанных имен файлов не удовлетворяет маске ??pri*.?* 1. napri.q 2.pripri.txt 3.privet.doc...
sonex008
12.01.2022 11:02
Найти корни уравнения в MatCad (20 вариант)...
angeloknet1
12.01.2022 10:56
Напишите программу на Python, которая в последовательности целых чисел находит два разных по значению наибольших числа среди чисел не кратных трем...
danilrykov200
12.01.2022 10:55
Исходный массив заполнить с генератора случайных чисел. Заданы два одномерных массива целых чисел a[n] и b[n].Сформировать третий массив c[n], гдеc[i] = max(a[i],...
0lar3
12.01.2022 10:53
Паскаль выдает ошибку Встречено read а ожидалось ; program PLОСНАD; var А,В,С:real; D:real; Р:real; S:real; begin writeln( Задайте стороны A,В,С: ) read(А,В,С); Р:=(А...
miroororoe01
12.01.2022 10:42
Понятие списковой структуры данных. Виды списков: стек, очередь...
twenty21
12.01.2022 10:00
(java) найти ошибки в коде. import java.util.Scanner: private class Main { import java.util.Scanner: private class Main { public static void main(String args) { char...
BroKeNxHeArT
12.01.2022 09:50
Інформаційна роль електричних медійних засобив?...
Популярные вопросы
Какой город затопило в прощание с матёрой?...
1
Составить диаграмму на казахском языке к слову абай...
2
Закончите фразу: «взаимоотношение организмов, когда один из них...
3
Как ускорить реакцию все возможные...
3
Закончите фразу: «организмы синтезироватъ органические вещества...
3
Укажите слово с проверяемой гласной в корне a истина б диплом с...
3
Весело – веселье, весёлый, веселиться. грустно - радостно - скучно...
3
Сделай вывод о влияние монгольских завоеваний на последующее развитие...
3
Расставьте по порядку этапы работы фотографа...
1
1. заполнить пропуски, иркутской области этот район единственный...
1
Var
i:integer;
Begin
For i:=100 to 999 do
if i mod 7 = 0 then Write(i,' ')
End.