program p;
var x: integer;
begin
writeln("Введите число: ");
readln(x);
if x>0 then x:=x*4 else x:=x*3;
writeln("Ответ: ",x); readln; end.
Cначало умножаем a с х и 2 a*x*2 -> 5*(-5)*2=-50
затем умножаем b на x b*x -> 9*(-5)=-45
и плюсуем все -50+(-45)+12=-95+12=-83
var a, b, c, s, r:integer;
begin
writeln('Введите 3 числа');
read(a, b, c);
s:=a+b;
r:=b-c;
writeln('Сумма 1-го и 2-го числа:',s);
writeln('Разность второго и третьего:',r);
<span>end.</span>
Var x,y:integer;
begin
write('x = ');
readln(x);
if x>0 then y:=1
else if x=0 then y:=0 else y:=-1;
writeln('y = ',y);
end.
Пример:
x = -5
y = -1
Ніколи не давати приватної інформації про себе
нікому не давайте свій пароль
не розсилайте листи не знайомим вам людям