Приведем все к (десятичной системе счисления)
A=30
B=31
C=27
D=30
Итого самым большим числом получается 31 под "B"
Var x: real;
{ процедура функция }
function y( x: real): real;
begin
if x>0 then Result:=5*x*x-(4/7)*x+2;
if x<0 then Result:=5*x*x-2*x+(1/3)*x-2;
end;
{ основная программа }
begin
write('Задайте значение x ');
readln(x);
if x=0 then writeln('при х = 0 функция не определена')
else writeln('Значение функции y = ',y(x):12:5);
end.
<span>
</span>
1) 500*70=35000
2) 70000-35000=35000 то есть в сша в 2 раза дешевле чем он собирается продавать
3) 70000+70000=140000 потратил на билет Лёша туда и обратно
следовательно из этого 2 айфона
Ответ:
program Calc;
var
k, x, a, c, y: Double;
begin
Write ('k, x, a, c = ');
ReadLn (k, x, a, c);
if x > 0 then begin
y := k * Sqr (x);
WriteLn ('y = ', y);
end else if a + c <> 0 then begin
y := - x / (a + c);
WriteLn ('y = ', y);
end else
WriteLn ('деление на ноль');
ReadLn;
end.
какой язык то???? на тебе паскаль...
var
in,out: text;
i.j: integer;
mas:array [0..4,1..6] of integer;
begin
assign(in1,'in.txt');
reset(in1);
assign(out1,'out.txt');
rewrite(out1);
for i:=1 to 4 do
begin
for j:=1 to 6 do
read(mas[i,j]);
readln;
end;
close(in);
close(out);
end.
капец здесь отступы нельзя делать... фиг поймешь...