PASCAL 1. Напишите фрагмент программы ветвления: дано число а, если оно меньше 10, то...

Question

PASCAL 1. Напишите фрагмент программы ветвления: дано число а, если оно меньше 10, то увеличить в 2 раза, иначе уменьшить на 15. 2. Напишите фрагмент программы ветвления: даны числа a и b. Если a или (or) b кратно 3, то s:=2(a+b) иначе s:=a+b-ab, Вывести s.

Answer 1

1) Program (тут напиши название своей программы);

var a, b:integer;

begin

write('введите число а = ');

readln(a);

if a

then a:=a*2

else a:=a-15;

writeln('a = ',a);

end.

Вывод:

введите число а = (ввел тут число 6)

a = 12

всё работает.

Comments

а для 2?

---

затрудняюсь с решением.

---

если это может подождать, я вышлю позднее.

---

подожду