//
Var x: integer;
Begin
Write('введите x=');
Readln(x);
if x>0 then
Write('положительное')
else
Write('не положительное');
End.
Подписаться на:
Комментарии к сообщению (Atom)
-
§ 21. Моделирование в задаче роста и убывания на уроке решали задачу параграф 21, будем ее дальше разбирать 21.1. Постановка за... -
В тетрадь 1. Для работы со Строками в языке Pascal предусмотрен специальный тип данных, который называется .... и обозна...
-
урок 1 в четверти 4 посмотреть видео https://eior.by/catalog_lecture/9-klass/informatick/20.php создать модель в электронных таблицах, в по...
Комментариев нет:
Отправить комментарий