Привет, как настроение? Меня зовут Алина, мне 18 лет. Хочу познакомиться с хорошим парнем..
Если тебе это интересно, напиши мне тут - http://onetimesex.com
Мой ник - KissKa
B1. 360 бита=45 байт
В2. 2048 бит
В3. 256 символов в алфавите
В4. 70000 бит=8750 байт
В5. 64 символа в алфавите
Надеюсь, что решение не нужно)
<h2><u>7. </u></h2>
program raf105;
var
num,max: integer;
begin
writeln('Вводите числа по очереди. Что бы закончить введите 0');
max:= -99999;
repeat
readln(num);
if num > max then max:= num;
until num = 0;
writeln('Вывод: ',max);
end.
<h2><u>8. </u></h2>
program raf105;
var
num,min: integer;
begin
writeln('Вводите числа по очереди. Что бы закончить введите 0');
min:= 99999;
repeat
readln(num);
if (num < min) and (num <> 0) then min:= num;
until num = 0;
writeln('Вывод: ',min);
end.
<h2><u>9. </u></h2>
program raf105;
var
num,count,max: integer;
begin
write('Введите количество чисел: ');
readln(count);
writeln('Вводите числа по очереди');
max:= -99999;
for var i:=1 to count do
begin
readln(num);
if (num > max) and (num mod 5 = 0) and (num <> 0) then max:= num;
end;
if max <> -99999 then writeln('Вывод: ',max)
else writeln('Таких чисел нет.');
end.
<h2><u> </u></h2><h3>PascalABC</h3>
uses crt;
var a,b,c,max:integer;
begin
writeln('a,b,c');
readln(a,b,c);
if a>b then max:=a;
if b>c then max:=b;
if c>a then max:=c;
writeln('max=',max);
<span>end.</span>
81.липы,осины,берёзы.79.2 игрок.80.2кончая,3.коник,4.там просто стрелочка.1слово я не помню.