1. Информатика
  2. Написать программу( в free

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

квіточка2018 квіточка2018    1   28.05.2019 08:00    0

Ответы
Simps0n Simps0n  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. 
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Темирлан2003 Темирлан2003  17.09.2021 09:15
Перечислить все виды информации. охарактеризовать любые три...
kalishevij99 kalishevij99  17.09.2021 09:14
5 предложений на интернет-зависимость...
Gungame02 Gungame02  17.05.2019 10:03
1.постройте в электронных таблицах двумерную модель «жизнь». проведите вычислительный эксперимент с разными вариантами первоначального расселения организмов.попробуйте...
Ghalachyansona Ghalachyansona  17.05.2019 10:02
Сійсиdim k, as integerfor k-5 to 9fork in range(5.10print (6) хажалгvar s,k: integer; begins: 0; for k : - 5 to 9 dos: s+ 8; writeln(s); цел s, ks: 0нц для k от 5 до 9end.кiiвывод...
Zekkin Zekkin  17.05.2019 11:00
Некоторый алфавит содержит четыре различных символа. сколько трехбуквенных слов можно составить из символов этого алфавита , если символы в слове могут повторяться? 1)81...
Б45 Б45  17.05.2019 09:59
Определите, что будет напечатано в результате работы следующей программы. текст программы на пяти языках программирования. бейсик python dim k, s as integer s = 2 for k...
darkfire2017oxd5un darkfire2017oxd5un  29.12.2020 19:42
Python Ввести массив, состоящий из 14 элементов действительного типа. Распо-ложить элементы c 1 по 7 по возрастанию, а с 8 по 14 - в порядке убыва ния.​...
Ninick Ninick  29.12.2020 19:40
Задание для знатоков информатики​...
zhenya214 zhenya214  29.12.2020 19:37
это Что там надо дописать чтобы ответ был верен. P.S. чтобы полностью фото увидеть нажмите на него.​...
ksenya64 ksenya64  05.08.2019 09:10
Запишите в развернутом виде числа: 193.125 в 10 193125 в 8 193125 в 16 1931.25 в 5...

Популярные вопросы