Задание:
Помогите решить 2 задачи, пожалуйста… 1) Определить является ли введенное с клавиатуры число, положительным. Отрицательным, или 0-м. 2) Меньше из 2-хзаданных чисел заменить числом 10.
Решение:
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)
Знаете другой ответ?