Var a,b,c,d,e,f:real;
begin
write ('Введите результаты 1 опроса: ');
readln (a);
write ('Введите результаты 2 опроса: ');
readln (b);
write ('Введите результаты 3 опроса: ');
readln (c);
write ('Введите результаты 4 опроса: ');
readln (d);
write ('Введите результаты 5 опроса: ');
readln (e);
f:=(a+b+c+d+e)/5;
writeln ('Средний балл = ',f);
end.
Procedure KolDel(n:integer; var k:integer);
var i:integer;
begin
k:=0;
for i:=1 to n do
if n mod i=0 then k:=k+1;
end;
var m,n,i:longint;
md,mx:integer;
begin
repeat
writeln('Введите интервал, 2 натуральных числа, второе больше первого');
readln(m,n);
until n>m;
mx:=1;
for i:=m to n do
begin
KolDel(i,md);
if md>mx then mx:=md;
end;
writeln('Наибольшее количество делителей имеют числа:');
for i:=m to n do
begin
KolDel(i,md);
if md=mx then write(i,' ');
end;
writeln;
write('количество=',mx);
readln
end.
Пример:
<span>Введите интервал, 2 натуральных числа, второе больше первого
10 100
Наибольшее количество делителей имеют числа:
60 72 84 90 96
количество=12</span>
3200 Байт = 3200*8 бит = 25600 бит = 25600 / 1024 КБит = 25 Кбит
Не знаю, как вы хотели, чтобы это представили через степень двойки.
Var a,b,c:real;
Begin
Write('Введите время движения: '); readln(a);
Write('Введите длину пути: '); readln(b);
c:=b/a;
write('Скорость равна: ', c);
<span>End.</span>
Как это в чем? Компьютер это машина, а человек - живое существо, у человека есть мозг , а у компьютера есть только то, что задает ему человек. Человек питается, живет, дышит, спит, размножается