Помогите решить 2 задачи, пожалуйста…

Question

Помогите решить 2 задачи, пожалуйста… 1) Определить является ли введенное с клавиатуры число, положительным. Отрицательным, или 0-м. 2) Меньше из 2-хзаданных чисел заменить числом 10.

Answer 1

84

availy

07 сентября 2022

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)

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: