Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется пока не будет введен ноль) и определение максимального ( наибольшего) из введенных чисел. используйте оператор repeat.

👇

Ответ:

TomaSharik

16.02.2021

Var
Max, N: Integer;
I: Integer;
begin
I:=0;

Repeat
ReadLn(N);

if I = 0 then
Max:=N
else if N > Max then
Max:=N;

Inc(N);
Until(N = 0);

WriteLn('Max = ', Max);
end.

4,8(86 оценок)

Открыть все ответы

Ответ:

fkffjfjfjfj

16.02.2021

Задача на определение объемов информации.
Чтобы пользоваться алфавитом в 32 символа, нужно
2^i=32
i=5
Каждый символ кодировать 5 битами информации.

При этом нам сказано, что первой буквой может быть только 1 из 4х данных букв.
Значит алфавит для 1 буквы будет состоять из 4 символов, то есть для кодировки первой буквы понадобится 2бита.
Итого, для кодировки одного слова в 8 символов, нам потребуется
2+7*5=37 бит.

Сообщение содержит 20 символов. Но одно слово содержит обязательно 8 символов.
Как трактовать это?
Посторонних символов и никаких других нюансов нам не дано.
Значит действуем "в лоб".

20:8 = 2,5 слова передано в сообщении.
При этом в остаточном половине слова получается только 4 буквы, 1я из которых, опять же, является одной из 4х данных.

Значит кодировка половины слова будет состоять из
2+3*5=17бит.

Итого, Объем сообщение составит
37+37+17= 91 бит.

4,6(95 оценок)

Ответ:

Fukci

16.02.2021

var

a:array [1..15] of integer;

s,i:integer;

begin

randomize;

for i:=1 to 15 do begin

a[i]:=random(80)-20;

write (a[i],' ');

s:=s+a[i];

end;

writeln;

writeln ('Summa = ',s);

readln;

end.

var
a:array [1..15] of integer;
i:integer;

p:longint;
begin
randomize;

p:=1;
for i:=1 to 15 do begin
a[i]:=random(26)+5;
write (a[i],' ');
p:=p*a[i];
end;
writeln;
writeln ('Proizvedenie = ',p);
readln;
end.

var
a:array [1..15] of integer;
k,i:integer;
begin
randomize;
for i:=1 to 15 do begin
a[i]:=random(90)-50;
write (a[i],' ');

if a[i]<0 then k:=k+1;
end;
writeln;
writeln ('Kol-vo = ',k);
readln;
end.

var
a:array [1..15] of integer;
k,i:integer;
begin
randomize;
for i:=1 to 15 do begin
a[i]:=random(37)+1;
write (a[i],' ');
if odd(a[i])=true then k:=k+1;
end;
writeln;
writeln ('Kol-vo = ',k);
readln;
end.

var
a:array [1..15] of integer;
k,i:integer;
begin
randomize;
for i:=1 to 15 do begin
a[i]:=random(39)+2;
write (a[i],' ');
if a[i]<20 then k:=k+1;
end;
writeln;
writeln ('Kol-vo = ',k);
readln;
end.

var
a:array [1..15] of integer;
k,i:integer;
begin
randomize;
for i:=1 to 15 do begin
a[i]:=random(60)+5;
write (a[i],' ');
if a[i] mod 7 = 0 then k:=k+1;
end;
writeln;
writeln ('Kol-vo = ',k);
readln;
end.

var

a:array [1..15] of integer;

s,i:integer;

begin

randomize;

for i:=1 to 15 do begin

a[i]:=random(8)+3;

write (a[i],' ');

if a[i]=8 then s:=s+a[i]

end;

writeln;

writeln ('Summa = ',s);

readln;

end.

var

a:array [1..15] of integer;

s,i:integer;

begin

randomize;

for i:=1 to 15 do begin

a[i]:=random(69)+5;

write (a[i],' ');

if a[i] mod 11 = 0 then s:=s+a[i];

end;

writeln;

writeln ('Summa = ',s);

readln;

end.

var

a:array [1..15] of integer;

s,i:integer;

begin

randomize;

for i:=1 to 15 do begin

a[i]:=random(69)+5;

write (a[i],' ');

if odd(a[i])=false then s:=s+a[i];

end;

writeln;

writeln ('Summa = ',s);

readln;

end.

10)

var
a:array [1..15] of integer;
i:integer;

p:longint;
begin
randomize;

p:=1;
for i:=1 to 15 do begin
a[i]:=random(69)+5;
write (a[i],' ');
if a[i] mod 3 = 0 then p:=p*a[i];
end;
writeln;
writeln ('Proizvedenie = ',p);
readln;
end.

14)

var
a:array [1..15] of integer;
i:integer;
begin
randomize;
for i:=1 to 15 do begin
a[i]:=random(26)+5;
write (a[i],' ');
end;
writeln;

writeln ('');

for i:=1 to 15 do

if odd(a[i])=false then write (a[i],' ');
readln;
end.

13)

var
a:array [1..15] of integer;
k,i:integer;
begin
randomize;
for i:=1 to 15 do begin
a[i]:=random(85)+21;
write (a[i],' ');
end;
writeln;

writeln('');

for i:=1 to 15 do

if a[i] mod 21 = 0 then begin

write (a[i],' ');

k:=k+1;