Задать вопрос
5 июня, 07:12

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

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.

+2
Ответы (1)
  1. 5 июня, 10:25
    0
    Если я понял о чем ты, то вот:

    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. / / завершение программы
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Переведите на русский, 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 ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Сделать так чтобы Writeln был заменен другим словом и повторялься не больше двух раз program choise; var N_M:integer; writeln (' введи номер месяца ') ; readln (N_M) ; case N_M of 1:writeln (' январь ') ; 2:writeln (' февраль ') ;
Ответы (1)
Как сделать теперь без массива (паскале) ? var nm:array of integer; j, l:integer; begin nm: = new integer[3] (random (20), random (20), random (20)) ; writeln ('nm[0] = ', nm[0]) ; writeln ('nm[1] = ', nm[1]) ; writeln ('nm[2] = ', nm[2]) ;
Ответы (1)
Переведите программу в Free Pascal var A: Array [1 ... 100] of integer; size: integer; Even: integer; notEven: integer; begin Write ('Set size A : ') ; Read (size) ; for i:integer : = 1 to size do begin Write ('Set A[', i, ']: ') ; Read (A[i]) ; end;
Ответы (2)
Запиши программу в Паскале для вычисления площади прямоугольника со сторонами c и m. 1) begin writeln ('Введи длину и ширину прямоугольника c и m') ; readln (c, m) ; s:=c*m; writeln ('s=', s) ; readln; end.
Ответы (1)
Укажите области видимости в программе: Program P; Var x: integer; Procedure P1; Var y: integer; Begin P2; End; Procedure P2; Var z: integer; Begin {Тело процедуры} End; Procedure P3; Var m: integer; Begin P1; End; Begin {Тело основной программы}P3;
Ответы (1)