Помогите решить 2 задачи,пожалуйста... 1)Определить является ли введенное с клавиатуры число,положительным.отрицательным,или 0-м. 2)Меньше из 2-х заданных чисел заменить числом 10.
Ответы
Ответ дал:
0
1) Program Pr;
var a:integer;
Begin
Writeln('Введите число');
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;
Begin
Writeln('Введите 2 заданых числа');
Readln(a);
Readln(b);
if a>b then b:=10
else a:=10;
writeln(a);
writeln(b);
end.
(Проверено и откомпелировано с помощью Pascal.NET)
Вас заинтересует
7 лет назад
9 лет назад