20 символов блэт аааааааааааа
0.345= 0.011100101
24.025= 10100.000010101
0.25= 0.010101
Vari, a: longint;beginread(a);i := 1;while (a mod 10 <> 0) doinc(i);writeln('Чисел в последовательности: ', i);end.
Var
N, i, max: shortint;
arr: array[1..50] of shortint;
v: string;
begin
v := ' NO';
max := -(MaxSmallInt);
readln(N);
for i := 1 to N do
begin
read(arr[i]);
if arr[i] > max then max := arr[i];
if arr[i] = 0 then v := ' YES';
end;
writeln(max, v);
end.
Даны массив (A1, А2, ..., A17). Получить новый массив, состоящий из A1, A3, ..., A17, A2, A4, ..., A1 Вообщем если не понятно, т
Сергей1959москва
Var A,B:array[1..17] of integer;
i:byte;
begin
for i:=1 to 17 do
read(a[i]);
for i:=1 to 17 do
if odd(i) then
begin
b[i]:=a[i];
write(b[i],' ');
end;
for i:=1 to 17 do
if not odd(i) then
begin
b[i]:=a[i];
write(b[i],' ');
end;
end.
