Вывести числа кратные двум и трем ,в диапазоне от 1 до 100 (pascal)
t0l1k
2
17.09.2019 11:20
0
Другие вопросы по теме Информатика
Динара22235
25.05.2020 17:54
AlexUnderNewSky
24.05.2020 17:54
P0SEYD0N
24.05.2020 17:55
mariamuraskina9
26.06.2019 00:50
Annnnf
26.06.2019 00:50
jfksbsj
26.06.2019 00:50
danilkatsurkan23
16.02.2021 21:11
REDFRAG
12.05.2020 10:47
сельджан2
12.05.2020 10:47
Популярные вопросы
- Запишіть реформи, що запровадив архонт Солоні у галузях економіки...
1 - по тексту нужно составить 5 вопросов...
3 - Вкажіть жанр і розкажіть про композицію твору Тарас Бульба...
3 - 1 из 4 Итоговый тест по разделу«Географическая оболочка»7 класс1....
3 - 4. Заполните таблицу, используя видео Опыт Наблюдения Уравнение реакции...
3 - 4 4,5 және 3 3,2;15...
1 - Напиши Письмо восхщенного читателя или Письмо россерженого читателя...
2 - Биологический диктант. Вставьте пропущенные слова в предложения....
2 - 1. Мәтіндегі кейіпкерлерді жаз. 2. Құстардың ұя салуын табиғат құбылысымен...
1 - Айтылым. 2-тапсырма. Сұраққа жауап бер / / аудиожазба жібер...
1
var
i: byte;
begin
for i := 1 to 100 do
if (i mod 2 = 0) and (i mod 3 = 0) then
write(i, ' ');
end.