Вопрос по информатике:
Помогите пожалуйста, задание по ИКТ:
Пользователь вводит 2 целых чисел, найти в одной программе их сумму, разность, произведение и частное.
Пожаловаться
- 07.05.2015 03:03
- Информатика
- remove_red_eye 7443
- thumb_up 44
Ответы и объяснения 1
Var
A,B:integer;
Begin
Write('Введите два целых числа: ');ReadLn(A,B);
if B < 0 then
Begin
WriteLn(a,b,' = ',a+b);
WriteLn(a,'-(',b,') = ',a,'+',-b,' = ',a-b);
WriteLn(a,'*(',b,') = ',a*b);
WriteLn(a,':(',b,') = ',a/b);
End
else
Begin
WriteLn(a,'+',b,' = ',a+b);
WriteLn(a,'-',b,' = ',a-b);
WriteLn(a,'*',b,' = ',a*b);
WriteLn(a,':',b,' = ',a/b);
End
End.
Примеры работы программы:
Введите два целых числа: 9 -3
9-3 = 6
9-(-3) = 9+3 = 12
9*(-3) = -27
9:(-3) = -3
Введите два целых числа: 11 11
11+11 = 22
11-11 = 0
11*11 = 121
11:11 = 1
A,B:integer;
Begin
Write('Введите два целых числа: ');ReadLn(A,B);
if B < 0 then
Begin
WriteLn(a,b,' = ',a+b);
WriteLn(a,'-(',b,') = ',a,'+',-b,' = ',a-b);
WriteLn(a,'*(',b,') = ',a*b);
WriteLn(a,':(',b,') = ',a/b);
End
else
Begin
WriteLn(a,'+',b,' = ',a+b);
WriteLn(a,'-',b,' = ',a-b);
WriteLn(a,'*',b,' = ',a*b);
WriteLn(a,':',b,' = ',a/b);
End
End.
Примеры работы программы:
Введите два целых числа: 9 -3
9-3 = 6
9-(-3) = 9+3 = 12
9*(-3) = -27
9:(-3) = -3
Введите два целых числа: 11 11
11+11 = 22
11-11 = 0
11*11 = 121
11:11 = 1
Пожаловаться
- 08.05.2015 21:59
- thumb_up 15
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы