Var k:integer;
s, x, a:real;
begin
writeln('Введите цену за первые 75 газет.');
readln(a);
writeln('Введите цену за последующие газеты.');
readln(x);
k:=133;
s:=(a*75)+((133-75)*x);
writeln(s);
end.
Var
Y,X:real;
Begin
Write('X = ');ReadLn(X);
if X<2 then Y:=5
else if X=2 then Y:=2
else Y:=10;
WriteLn('Y = ',Y);
End.
<span>2)
c = 5, когда не выполняется оба условия, то есть:
</span><span><span>If a<7 then c:=10 // a>=7
else if a>7 then c:=2 // a>7
else c:=5
Переменная a может иметь любое значение больше семи.
</span></span>
Общество, в котором большинство работающих занято производством, хранением, переработкой и реализацией информации, особенно высшей её формы — знаний
Линейка состоит из дерева или пластмасса,ремень из кожи или наполнителя то есть химия.Помог не помог но написал))
Переставьте местами строчки вниз и пока слева стена местами