Вопрос по информатике:
Помогите решить 2 задачи,пожалуйста... 1)Определить является ли введенное с клавиатуры число,положительным.отрицательным,или 0-м. 2)Меньше из 2-х заданных чисел заменить числом 10.
- 23.10.2017 23:01
- Информатика
- remove_red_eye 5625
- thumb_up 40
Ответы и объяснения 1
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)
- 24.10.2017 22:00
- thumb_up 19
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.