Вопрос по информатике:
Даны числа АВС, четные числа умножить на 2, к нечетным прибавить 3. Решить про помощи Паскаля
- 20.05.2018 20:58
- Информатика
- remove_red_eye 6795
- thumb_up 22
Ответы и объяснения 1
Program ten;
Var A,B,C: integer;
Begin
Write ('Введите число A '); Read(A);
Write ('Введите число B '); Read(B);
Write ('Введите число C '); Read(C);
If A mod 2 = 0 Then A:=A*2 Else A:=A+3;
If B mod 2 = 0 Then B:=B*2 Else B:=B+3;
If C mod 2 = 0 Then C:=C*2 Else C:=C+3;
Write (' число A',A);
Write (' число B',B);
Write (' число C',C);
end.
- 21.05.2018 17:42
- thumb_up 19
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.