3. Записати фрагмент програми для виводу на екран елементів лінійного масиву
розміром 20

Question

Информатика: 3. Записати фрагмент програми для виводу на екран елементів лінійного масиву розміром 20

egorovaesya · Accepted Answer

var
c, f, First, count:integer;
begin
write('c = ');
readln(c);
f := c;
while (f div 10 > 0) do
begin
    First := f div 10;
    count := 1;
    while (First div 10 > 0) do
    begin
      First := First div 10;
      Inc(count);
    end;
    if First <> f mod 10 then
    begin
      writeln('No');
      readln;
      Exit;
    end;

    while count > 0 do
    begin
      First := First * 10;
      dec(count);
    end;
    f := f - First;
    f := f div 10;
end;
writeln('Changeling');
readln;
end.

3. Записати фрагмент програми для виводу на екран елементів лінійного масиву розміром 20

MOGZ ответил

3. Записати фрагмент програми для виводу на екран елементів лінійного масиву
розміром 20