< >

Напишите программу, которая с помощью цикла for выдает четные числа от 1 до 19 через запятую

Ответы

Ответ дал: MrFasty5
0

var i:integer;

begin

for i:=1 to 19 do begin

if i mod 2 = 0 then

write(i,', ');

end;

end.

Похожие вопросы
Физика
1 год назад
Допоможіть з тестом даю 25 балів ю
Українська мова
1 год назад
ДАЮ 100 БАЛІВ ДУЖЕ ПОТРІБНА ДОПОМОГА Завдання 1-3 мають чотири варіанти відповідей, із яких лише ОДНА правильна. 1. Укажіть безсполучникове складне речення. А. По-моєму, кожна людина мусить хоч раз
Русский язык
1 год назад
предложения со словом ворона
Биология
1 год назад
В чем отличие искусственного опыления от естественного?
Окружающий мир
2 года назад
Какое животное (не насекомое) трижды меняет облик, прежде чем стать взрослым. У него две пары перепончатых крыльев с небольшим количеством поперечных жилок. Окрас крыльев может быть очень ярким, а
Алгебра
2 года назад
решите неравенство 0,1х<-5 Срочно пожалуйста ​
Геометрия
8 лет назад
СРООООЧНО 10бб!! Длина окружности, радиус которой 10, равна длине дуги второй окружности, содержащей 150°. Найдите радиус и длину второй окружности
Физика
8 лет назад
1.Используя пластиковую бутылку и тонкую трубку для сока, проведите дома опыт по тепловому расширению воздуха и воды. Результаты опыта опишите в тетради. 2. Возьмите 5 - копеечную монету, 2 гвоздя,