От 1 до n вывести все числа, которые кратны 3
likamikanumberone
2
10.08.2019 12:40
0
Другие вопросы по теме Информатика
nzinulla
03.06.2019 08:00
Pandochka7771
03.06.2019 08:00
GiTToS
03.06.2019 08:00
Даня100000000
01.06.2019 04:10
MasterGameTV1
22.07.2019 18:40
yanchikkatsia
22.07.2019 18:40
1Yuki2
22.07.2019 18:40
Siya99
28.06.2019 22:00
MishaBig
28.06.2019 22:00
Популярные вопросы
- Выражения2) -9c² + (3c+d)² - d²4) (7b - t) (t+7b) + (7b + ²)6) (11c + 3)² - 2c (5,5c...
3 - напишите в ответе число различных значений входной переменной k, при которых программа...
1 - составить формулы всех оксидов: хлора, серы, азота, калия, бария....
3 - Як геродот дає нам зрозуміти послідовність перебування кіммерійців і скіфів на українських...
3 - (произведение а.н. чудесный доктор )нужно дать ответ в виде связанного текста на...
1 - When who that whom which 1. she couldn`t remember the day she received the letter....
1 - Решить диф уравнение x^3y +y=7 y(1)=6...
1 - На чем основан юмор этого рассказа? подумайте, какими средствами писатель создаёт...
3 - 6. укажите неверное утверждение. 1. - в деепричастии совмещены признаки глаголов...
2 - Народ нужна в черчении! я в нём профан! данную деталь необходимо начертить в трёх...
3
begin
for a:=n downto 1 do begin
if (a mod 3 = 0)
then writeln(a);
end;
end.