3/4 Кбайта= 768 байт
768 байт *8=6144 бит
64=2^6
6144/6=1024
ответ 1024 символа
Program zadacha;vara: array[1..5] of byte;i,max: byte;beginmax:=0;for i:=1 to 5 do begin a[i]:=random(255); write(a[i]:4);end;writeln;
for i:=1 to 5 doif a[i]>max then max:=a[i];
writeln('max=',max);
end.
Ответ:
Я бы посоветовал(ала) свои друзьям сайт YouTube там можно посмотреть всякие развлекательные видео ролики,WhatsApp-Viber там можно общаться со своими друзьями,Play Маркет-можно установлять всякие различные игры на телефон-планшет,
//Pascal ABC.NET v3.1 сборка 1219
Var
n,k1,k2,i:integer;
r:real;
begin
readln(n);
for i:=1 to n do
begin
readln(r);
if r>0 then k1:=k1+1;
if r<0 then k2:=k2+1;
end;
writeln('Положительные:',k1);
writeln('Отрицательные:',k2);
end.
Пример ввода:
4
-1.1
2
3
0
Пример вывода:
Положительные:2
Отрицательные:1
Program zadacha;
Var a,b,c: Integer;
Begin
write('Введите А ');
read(a);
Write('Введите Б ');
read(b);
Write('Введите C ');
read(c);
If a>c*c-b Then Write(a+b)
Else Write(b+c);
ReadLn;
End.