Вывести число, полученное при удалении чисел
Pascal ABC:
Дано шестизначное число. Вывести число, полученное при удалении чисел, занимающих нечетные места (например, при вводе 123456 на экран выведется число 246);
Дано шестизначное число. Вывести число, полученное при удалении чисел, занимающих нечетные места (например, при вводе 123456 на экран выведется число 246);
- Вы опять? :) При удалении ЦИФР, занимающих нечетные места... от disputant, 28 мая 2012 года
Код:
begin
{$I-}
Readln(n);
{$I+}
if (IOResult <> 0) then begin
Writeln('Bad n');
Exit;
end;
sin := IntToStr(n);
sout := '';
for i := 1 to Length(sin) do
if (i mod 2 = 0) then
sout := sout + sin[i];
Writeln(sout);
end.
{$I-}
Readln(n);
{$I+}
if (IOResult <> 0) then begin
Writeln('Bad n');
Exit;
end;
sin := IntToStr(n);
sout := '';
for i := 1 to Length(sin) do
if (i mod 2 = 0) then
sout := sout + sin[i];
Writeln(sout);
end.