Var x,y:integer;
begin;
readln(x);
if x>0 then
begin;
y:=2*sqr(x)+5;
write(y);
end
else
begin;
y:=7*sqr(x)-5;
write(y);
end;
end.
12 способами можно составить 2 танцевальные пары
2048 символов. <span>1 МБ = 1024 Кбайт .</span><span>1/512 МБ = 2 Кбайта.
</span>
<span>Итак, 2 Кбайта = 2048 байт = 2048 символов. </span>
<span>Итого, 1 символ весит 1 байт. </span>
<span>В 1 байт можно вставить числа от 0 до 255, в алфавите 256 символов.</span>
Ответ А будет лишним, остальные варианты это пакет office от ms
//Pascal ABC.NET 3.1 сборка 1256
Var
s:string;
a,b:real;
begin
readln(s);
a:=strtofloat(copy(s,1,pos('X',s)-1));
b:=strtofloat(copy(s,pos('=',s)+1,length(s)-pos('=',s)));
if (a=0) and (b=0) then
begin
writeln('X-любое действительное число');
exit;
end
else
if a=0 then
begin
writeln('Нет корней');
exit;
end;
writeln(b/a);
end.
Пример ввода:
-0.1X=10
Пример вывода:
-100