Регистрация
linanstyoxvdtf
10.04.2021 23:39
Информатика
Есть ответ 👍

Информатика решить пару задачек класс

156
215
Посмотреть ответы 1

Ответы на вопрос:

ketjaan13
ketjaan13
4,4(76 оценок)

1)  program pr; var a: integer; beginwriteln('введите число'); readln(a); if a> 0 then writeln('число положительно'); if a=0 then writeln('число является 0-эм'); if a< 0 then writeln('число отрицательно'); end.

2)program pr; var a,b: integer; beginwriteln('введите 2 заданых числа'); readln(a); readln(b); if a> b then b: =10 else a: =10; writeln(a); writeln(b); end.

(проверено и откомпелировано с pascal.net)

Популярно: Информатика