1 симаол = 1 байт
соответственно в сообщение 10500 символов
Var
a: integer;
begin
a := 0;
writeln('enter the value: ');
read(a);
if a < 0 then
write('negative')
else
write('positive');
if a mod 2 = 0 then
write(' even')
else
write(' odd');
end.
Ответ:
Объяснение:
const
n = 100;
var
a:array[1..n] of integer;
i, k:integer;
begin
k:=1;
for i:= 1 to n do begin
a[i]:=k;
if (i mod 2 = 0) then k:=k + 1;
end;
for i:= 1 to n do
write(a[i], ' ');
readln;
end.
На один ребус тебе. излогает шум но не играет. С проводом но без электричества. Что это?