Переведите на российский, var x, y, b: integer;begin write

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

var
x, y, b: integer;

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

if x gt; 0 then
y := y * b
else
if x = 0 then
y := 0
else
y := абс(x);

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

end.

Задать свой вопрос
Семён Дельфин
Для вас необходимо перевести на российский слова var, begin, write, ...?
Прохватикова Евгения
ну типа того
1 ответ
Если я сообразил о чем ты, то вот:
var
x, y, b: integer; // описание переменных

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


if x gt; 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. // окончание программы
Даниил Хоггэ
ну выводит y=x*y и надобно ввести значение
Кристина Бодриева
Хорошо, забей
Санек Нучаев
Просто напиши всё это на алгоритмическом языке
Васильева-Ронявская Милена
блок-схема эт долго
Артемий
Желая ожидай
Арсений Дрбоглав
Поставишь отметку лучший ответ? :3
Ангелина Адарченкова
да, но как? ))
Оксана Чеверноженко
Там под ответом написано сделать лучшим
Лидия
Спасибо за БС
Арсений Томащук
Не нашёл что-то
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт