/ - разделить
* - умножить
i = 8 бит = 1 байт
Объем одной страницы T = 40*60*1 байт = 2400 байт
Объем доступной памяти M = 16 Кбайт = 16 * 1024 байт = 16384 байт
Кол-во страниц S = M / T = 16384 байт / 2400 байт = 6.8266666666666
Поскольку страниц может быть только целое число и больше чем есть не впихнешь, то округляем до целых в меньшую сторону
S = 6
Какой ДОЛЖЕН БЫТЬ результат - это у Вас в задании написано: сначала то, что Вы введете, а затем оно же, но в обратном порядке. А вот какой он БУДЕТ - это зависит от того, что Вы написали в программе.
В качестве значений для ввода возьмите, например, третье число, затем числа от второго по шестое, а затем все десять из приведенного ниже ряда:
-24 18 18 16 4 -2 16 11 16 -15
Они были получены из программы на Паскале при помощи датчика случайных чисел.
Var x1,x2,D:real;
a,b,c:integer;
begin
readln(a,b,c);
D:=sqr(b)-4*a*c;
x1:=(-b+sqrt(D))/(2*a);
x2:=(-b-sqrt(D))/(2*a);
writeln(x1,x2);
readln;
<span>end.</span>
Задача №1
//Pascal
var i,a,s,k:integer;
begin
s:=0;k:=0;
repeat
readln(a);
if a>12 then begin
k:=k+1;
s:=s+a;
end;
until a=0;
if k<>0 then writeln(s/k)
else writeln('Таких чисел нет');
end.
Задача №2
var
n,p: integer;
begin
p:=1;
readln(n);
while n > 0 do
begin
write(' ', n mod 10);
if n mod 10 < 4 then p:=p * (n mod 10);
n := n div 10
end;
if p<>1 then writeln('Произведение цифр числа ', p)
else writeln('Нет решения');
end.