1. Информатика
  2. От 1 до n вывести все числа,

От 1 до n вывести все числа, которые кратны 3

оксана150986 оксана150986    1   10.08.2019 12:40    0

Ответы
arinabesan6 arinabesan6  04.10.2020 09:21
Var n,i:integer;
begin 
read(n);
i:=1;
repeat
   begin
   if i mod 3=0 then
   writeln(i); 
end;
i:=i+1;
until n<i
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
buh64 buh64  21.12.2019 20:14
Награда 50 ! нужно написать программу в паскаль. попадает ли точка введения пользователем (её координаты) в выделенную область....
Viper397 Viper397  21.12.2019 20:15
1. переведите числа из одной системы счисления в другую табличным методом: 13245,14 из7 - в 81736,12 из15 - в11 2. переведите числа из одной системы счисления в другую методом подбора:...
милана59 милана59  21.12.2019 20:16
Придумать смешной сюжет на 1-минутный новогодний мультик вот с этими персонажами:...
olgapustovarova1 olgapustovarova1  21.12.2019 20:18
Как осуществляется сбор информации в социальной инженерии...
remizov011 remizov011  21.12.2019 20:21
4, это на загрузить всю программу, чтоб ее выполнить...
angelok8408 angelok8408  21.12.2019 20:26
Вкажіть пристрої, що входять до складу мультимедійного обладнання. виберіть одну або декілька відповідей: a. фотокамера b. звукові колонки c. графічний планшет d. мікрофон e. принтер...
MrsDrew MrsDrew  21.12.2019 18:35
1. запишите числа в нормальной форме представления: a. 0,2435b. 0,000167c. 472,43d. 347256e. 245,03f. 0,02145 2. запишите целые числа в шестнадцатиразрядную ячейку памяти в прямомкоде:...
nikitabelokon21 nikitabelokon21  10.12.2020 15:10
В языке запросов поискового сервера для обозначения логической операции «ИЛИ» используется символ «|», а для логической операции «И» – символ «&». В таблице приведены запросы...
Анастасия8383 Анастасия8383  10.12.2020 15:11
вводить числа с клавиатуры, выводить ответ для каждого числа четное оно или нет пока не будевводить числа с клавиатуры, выводить ответ для каждого числа четное оно или нет пока не...
virina059 virina059  10.12.2020 15:12
ОЧЕНЬ ХОТЯ БЫ 1 НОМЕР Выполните решение задач. 1. Документ объёмом 30 Мбайт можно передать с одного компьютера на другой двумя А. Сжать архиватором, передать архив по каналу связи,...

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