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