Question

Напишите фрагмент алгоритма с ветвлением,который реализовывал бы следующую задачу: Если значение х будет такое же или меньше 15,то его необходимо увеличить в 3 раза,в противном случае в 3 раза надо увеличить y.
Полное решение задачи как в Паскале

Answer 1

program zadacha;
  var x, y, z: integer (либо real);
begin
readln (x);
readln (y);
if x>=15 then
  begin
   z:=x*3;
  end else
  begin 
   z:=y*3;
  end;
write (z);
end.