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