11281-4526=6755
345275:9865=35
6755:35=193
Зрительная информация
звуковая информация
текстовая информация
Вот) Тут используется формула
var
i: integer;
begin
i := 1;
while exp(i*ln(5)) <= 25000 do
begin
writeln('A_', i, ' = ', exp(i*ln(5)));
inc(i);
end;
end.
var a:integer;
begin
write('Введите число: ');
read(a);
if a mod 5=0 then
begin
a:=a*2;
write('Удвоенное число равно: ', a);
end;
if a mod 5 <>0 then write('Число не кратно пяти.');
end.
300 на 200 умножить и найти 40% от этого и прибавить 16384 умноженное на 200