Переведем все числа в десятичную сс 1000p=p^3
120p=p^2+2p 110p=p^2+p получаем уравнение p^3=p^2+2p+p^2+p
p^3-p^2-2p-p^2-p =0 реши уравнение и найди p
В таблице:
9 л 9 4 4 - 9 8 8 3
<span>5 л - 5 - 4 4 5 - 5</span>
Uses crt;
var
tovar:real;
begin
tovar:=20.4;
writeln(tovar*2);
writeln(tovar*3);
writeln(tovar*4);
writeln(tovar*5);
writeln(tovar*6);
writeln(tovar*7);
writeln(tovar*8);
writeln(tovar*9);
writeln(tovar*10);
end
В начале ввод переменных с клавы(а точнее а=5,b=10,c=20)
потом находим Х=а+б+с(не хочу менять раскладку)=5+10+20=35
Т.к. над Х ничего потом не делаем то в конце Х=35
терь след строка а=а(то бишь 5)умноженное на 85(если ты имел ввиду умножение)"а"=5 на 85 = 425
над "а" мы потом ничего не делаем так что в конце а=425
потом б=а(но терь "а"=425)+б(тобишь 10)
б=435
след строка мы присваиваем с значение 15(с=15)и т.к. мы с ним ничего не делаем оно и в конце с=15
след строка б=б(равное 435)ужножить на 83(если у тя умножить)
калькулятор сказал что б равен 36105
в итоге
а=425; б=36105; с=15 и Х=35
но перепроверь программу вдруг неправильно переписал)
Program p1;
const N=10;
var i,max,sum:integer;
a:array[1..10] of integer;
begin
randomize;
max:=0;
sum:=0;
for i:=1 to N do a[i]:=1+random(10);
for i:=1 to N do write(a[i],' ');
for i:=1 to N do
if (a[i]>max) then max:=a[i];
writeln;
writeln('Максимальное число: ',max);
for i:=1 to N do
if(a[i]=max) then sum:=sum+1;
write('Количество максимальных чисел: ',sum);
end.