Составить программу для вывода на экран четных чисел от - 20 до 20
1 3 5 7 9 11 13 15 17 19
Нужна программа!
Var i: Integer; Begin for i := -20 to 20 do if i mod 2 = 0 then write(i,' '); End.
это ответ ?
Да
Тебе была нужна программа, я её написал...
можеш ответ полностью сделать написать?