Question

Перевести на алг. яз. Program qwerty; var a,b:integer; c:real; begin read (a,b); c:=a*b; if c<0 then c:=c*8 else c:=c*1.5; write ©; end.

Answer 1

алг qwerty

нач

цел a, b

вещ c

ввод a, b

c:= a*b

если c<0 то c:=c*8

иначе c:=c*1.5

все

вывод c

кон

Answer 2

На алгоритмическом языке ваша программа будет выглядеть следующим образом:

cssCopy code
Program qwerty;
var
  a, b: integer;
  c: real;

begin
  read(a, b);
  c := a * b;
  
  if c < 0 then
    c := c * 8
  else
    c := c * 1.5;
    
  write(c);
end.

Эта программа считывает два целых числа a и b, затем вычисляет произведение c этих чисел. Если c меньше нуля, то оно умножается на 8, иначе умножается на 1.5. Затем результат выводится на экран. Обратите внимание, что символ © был заменен на переменную c, так как на алгоритмическом языке нет специальных символов для вывода.