Ответы на вопрос:
Var x: integer; begin write ('введите число: '); read(x); if (x> 0) then writeln ('ваше число положительное! '); if (x< 0) then writeln ('ваше число отрицательное! '); if (x=0) then writeln ('ваше число равно нулю! '); end.
2и 3 строчки надо убрать, после var нужно написать i,k: real; в 3 и 6 строчке с конца поставить ;
Популярно: Информатика
-
Helpmeplease111406.05.2022 12:48
-
hlipkaya13.11.2021 05:49
-
Polinka089803.04.2022 18:19
-
megadog21.11.2022 01:48
-
olegsolomein20113.06.2021 01:52
-
nastyyanokogloStasya09.08.2022 20:43
-
alelinahka20.08.2020 22:42
-
trototil16.12.2021 15:15
-
Лилиана431225.10.2020 19:01
-
nastyagrigorov20.04.2021 03:05