Var a,k,s,p: real;
begin
readln(k,s,p);
a:=s/(k+k*(p/100));
writeln(a);
end.
Var
n:longint;
i,d,dmax:byte;
a:array[0..9] of byte;
begin
Writeln('Введите натуральное число (1..2147483647): ');
Read(n);
for i:=0 to 9 do a[i]:=0;
dmax:=0;
while n>0 do begin
d:=n mod 10;
if dmax<d then dmax:=d;
Inc(a[d]);
n:=n div 10
end;
Writeln('Максимальная цифра ',dmax,' встречается ',a[dmax],' раз(а)')
end.
<em><u>Тестовое решение:</u></em>
Введите натуральное число (1..2147483647):
235636634
Максимальная цифра 6 встречается 3 раз(а)
Если с клавиатуры вводить оценки, то так
var
a,b,c,d:integer;
begin
a:=0; b:=0; c:=0;
for i:=1 to 20 do
begin
readln(d);
if d=2 then inc(a) else
if d=3 then inc(b) else
if d=4 then inc(c);
end;
write(' dvoek - ', a, 'troek - ', b, 'chetverok - ', c);
readln;
end.
30С.7
+ 2A1.8
----------
5AD.F
7+8=15₁₀=F₁₆
C₁₆+1=D₁₆
0+A₁₆=A₁₆
3+2=5