Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var
a,b: integer;
begin
write('введите в одной строке два целых числа и нажмите < enter> ');
readln(a,b);
if a=b then writeln('числа равны')
else
if a> b then writeln(a,' больше')
else writeln(b,' больше')
end.
решаем относительно a: a=(-6*x2-c)/x4=-6*x2/x4-c/x4
9 кбатй = 73728 бит (кбайт=8192 бит)
73728/1536=48сек
512*48=24576бит=3072 байт ( 1 байт = 8 бит)
var x,n: integer;
read(x,n);
x: =x*n;
writeln(x);
трасирвка кажется f7
Популярные вопросы