Question

Переведите на русский,

var
x, y, b: integer;

begin
write ('y = x*b ');
readln (x);

if x > 0 then
y := y * b
else
if x = 0 then
y := 0
else
y := abs(x);

writeln ('y = ', y = x*b);

end.

Answer 1

Если я понял о чем ты, то вот:
var
x, y, b: integer; // описание переменных

begin // начало программы 
write ('y = x*b ');  
read(x,b);      // ввод переменной x,b


if x > 0   // проверка, х больше от 0?
then   
y := y * b       // если да, то исполняется это
else               
if x = 0 then   //если нет, то это(тут опять же проверка, х равно 0?)
y := 0             // если да то "y" присваивается 0
else
y := abs(x);    // если нет то "y" присваивается значение модуль "х"

writeln ('y = ', y);  // выводятся значения,

end. // завершение программы

Answer 2

Поставишь отметку лучший ответ? :3

Answer 3

да, но как? ))

Answer 4

Там под ответом написано сделать лучшим

Answer 5

Спасибо за БС

Answer 6

Не нашёл что-то