1 байт=8 бит
1 Мбайт=2^20 байт=8*2^20 бит=2^3*2^20 бит =2^23 бит
1.44 Мбайт= 1.44*2^23 бит
Var a,b,c:integer;
Begin
Write('Введите три целых числа: ');ReadLn(a,b,c);
if b>a then a:=b;
if c>a then a:=c;
WriteLn(a);
End.
1) Дано число. Получить новое число с обратным значением цифр , где 0→9, 1→8, 2→7, 3→6, 4→5, а цифры 5, 6,7,8,9 не изменяются .
dy
Var a,h:longint;
b:integer;
begin
writeln ('введи число');
readln (a);
while a>0 do begin
b:=a mod 10;
case b of
0: b:=9;
1: b:=8;
2: b:=7;
3: b:=6;
4: b:=5;
end;
h:=h*10+b;
a:=a div 10;
end;
a:+0;
while h>0 do begin
b:=h mod 10;
a:=a*10+b;
h:=h div 10;
end;
writeln (a);
readln;
end.
<span>56 KB56000 Байт<span>57344 Байт</span></span>
Объяснение:
– сверху – это ваше "-"
& не ставится у меня, у себя его ставьте!