Переведите ** русский, var x, y, b: integer; begin write ('y = x*b '); readln (x); if x...

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.

Comments

Вам нужно перевести на русский слова var, begin, write, ...?

---

ну типа того

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. // завершение программы

---

Comments

ну выводит y=x*y и надо ввести значение

---

Ладно, забей

---

Просто напиши всё это на алгоритмическом языке

---

блок-схема эт долго

---

Хотя жди

---

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

---

да, но как? ))

---

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

---

Спасибо за БС

---

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