Нужна срочно помощь!Паскаль! Ввести 2 целых числа и вывести на экран четные и нечётные числа,но чтобы четные были со знаком "-" Минус.Используя команду if (i mod 2) <> 0 then
Program abc; var a, b, k: integer; BEGIN read (a, b); for k:=1 to (b-a) do begin if (a mod 2) <>0 then writeln ( a) else writeln ('-', a); a:=a+1 end; end.
Встречено else а ожидался оператор
странно, скопируй заново, что я написал
я исправлял просто
И интересно разве можно без ' ' в writeln писать?
В данной задаче должна присутствовать данная строчка for i:= a to b do
Например я ввожу А=1,а В=100 И должны вывести все числа от 1 до 100,и те которые четные со знаком минус
ну знаешь, ты перечитай сове задание
там же ничего не понятно
свое* задание
Вот программа, которая нужна