Вопрос по информатике:
1. Переведите на язык программирования:
а) ввести А и С
увеличить А в 10 раз
уменьшить С в 20 раз
напечатать модуль разности А и С
б) ввести А и С
если А>С, то увеличить А в 5 раз иначе
уменьшить С в 2 раза
напечатать значения А и С
конец
в) ввести A,B и С
найти сумму B и С
если полученная сумма больше А то увеличить B на 10, иначе
уменьшить С на 15
напечатать A, B и С
конец
- 13.05.2018 03:10
- Информатика
- remove_red_eye 11806
- thumb_up 37
Ответы и объяснения 1
Program 1;
Var a,c: integer;
Begin
Read(a,c);
A := a*10;
C := c mod 20;
Write(abs(a-c));
End.
Program 2;
Var a,c: integer;
Begin
Read(a,c);
if a > c then
A := a*5
Else c := c mod 2;
Write(a,c);
Program 3;
Var a,b,c, sum: integer;
Begin
Read(a,b,c);
Sum := b+c;
If sum > a then
B := b +10
Else c := c-15;
Write(a,b,c);
End.
- 14.05.2018 23:15
- thumb_up 39
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.