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<10

then a:=a*2

else a:=a-15;

writeln('a = ',a);

end.

Вывод:

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

a = 12

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