Begin
var m,u,p,t:integer;
for var i:=10 to 99 do
if i mod 7 =0 then
begin
m:=m+i; u:=u+1;
end;
Writeln('Среднее чисел которые дклятся на 7=',m/u);
for var i:=1 to 99 do
if i mod 5 = 0 then
begin
p:=p+i; t:=t+1;
if t > 10 then break;
end;
Writeln('Среднее чисел которые дклятся на 5=',p/t);
end.
1) жесткий диск ссд озу
2) современный дисковод
3)в прооцесоре
Var
a,b,c:integer;
x,y,z:string;
begin
writeln('Введите стороны треугольника');
readln(a,b,c);
x:='равнобедренный';
y:='равносторонний';
z:='разносторонний';
begin
if (c=b) and (a<>c) then
writeln('Треугольник',' ',x);
if (a=c) and (a<>b) then
writeln('Треугольник',' ',x);
if (a=b) and (a<>c) then
writeln('Треугольник',' ',x);
if (a=b) and (a=c) and (b=c) then
writeln('Треугольник',' ',y);
if (a<>b) and (a<>c) and (b<>c) then
writeln('Треугольник',' ',z);
end;
readln
<span>end.</span>
А - 03
Б - 07
В - 11
Г - 112
Д - 132
Е - 179
Ж - 221
З - 02
И - 75
Й - 83
К = 256
Л - 773
и т.д.
С числами так же, только, например, 1 - это А, 2 - это Б, и так до 9.
В буквах - значение чисел не должно совпадать, как и в числах.
Program enot;
VAR p:real;
i,n:integer;
BEGIN
p:=1;
read(n);
for i:= n downto 1 do
p:= p*i;
writeln(p:4:2);
<span> end.</span>