Var
n,i:integer;
begin
readln(n);
for i:=4 to 10 do
writeln(i,'*',n,'=',i*n);
<span> end.</span>
"komp"
"komp"
"komp"
"komp"
"komp"
"komp"
"komp"
"komp"
"komp"
"komp"
Узнать сколько стоит бензин
затем стоимость бензина умножить на количество бензина, которое потребляет автомобиль, и на расстояние до дачи
10000000 ................
var y,x:real;
begin
write('Введите x = ');
readln(x);
if (x<=0) then y:=exp(x) else if x>1 then y:=ln(x) else y:=0;
writeln('y = ',y:0:2);
end.