Var a,b:real;
Begin
Write('Введите 2числа: '); readln(a,b);
Writeln('Среднее арифмитическое этих чисел = ',(a+b)/2);
Writeln('Среднее геометрическое этих чисел = ',(a*b)/2);
<span>End.</span>
const
inf = 32767;
var
a, min : integer;
begin
min := inf;
while not eoln do
begin
read (a);
if (a < min) and (a mod 3 = 0) then min := a;
end;
if min < inf then writeln (min)
else writeln ('Нет чисел, кратных 3-ем');
end.
program w7w7;
var a:real;
begin
readln (a);
if a<0 then writeln ('otritsatelnoe chislo');
if a>0 then writeln ('pologitelnoe chislo');
end.
1024 бит в сек умножаем на 30 сек, так узнаем количество бит переданное за 30 сек.
1024*30=30720 бит
Переведём в килобайты
1 байт = 8 бит
1 кБайт = 1024 байт
30720/8=3840 байт
3840/1024=3.75 кБайт
Ответ:3.75кБайт
Ответ:
var max,n:integer;
c,nom:byte;
begin
max:=-1000;
for c:=1 to 4 do
begin
writeln('Введите число под номером ', c );
readln(n);
if n>max then begin
max:=n;
nom:=c;
end;
end;
writeln('Максимальное число из введенных - 'max);
end.
Объяснение: