program sorevnovaniya;
var a,b,c: integer;
begin
writeln ('Введите результаты соревнований');
readln (a,b,c);
if (a<b) and (c<b) then writeln (b, '-', 'результат',' ','победителя',' ', 'заплыва');
if (b<c) and (a<c) then writeln (c, '-', 'результат',' ','победителя',' ', 'заплыва');
if (b<a) and (c<a) then writeln (a, '-', 'результат',' ','победителя',' ', 'заплыва');
end.
Var a,b:integer;
beginwriteln('Введите 1 число');
readln(a);
writeln('Введите 2 число');
readln(b);
if a>=b then writeln('Наименьшее число равняется ',b)
else writeln('Наименьшее число равняется ',a);
<span>end.</span>
Ответ:
1) 1,5 Кбайт * 1024 = 1536 байт
1536 байт * 8 = 12288 бит
2) 4 Кбайт * 1024 = 4096 байт
4096 байт * 8 = 32768 бит
Объяснение:
1 Кбайт = 1024 байт
1 байт = 8 бит
Program mili;
const a=1.603; b='км'; с='мили';
var k:integer; m:real;
begin
writeln(b:5,c:7); writeln;
for k:=l to 10 do
begin
m:=k/a; writeln(k:5,m:6:3)
end
end.