Информатика на пять О нас
 Добавить в избранное
5byte.ru
 Теория
 8 класс
 9 класс
 10 класс
 11 класс
Задания
 8 класс
 9 класс
 10 класс
 11 класс
Книги
Тесты
ЕГЭ
Turbo Pascal 7
 Описание
 Задачи
HTML
Рефераты

Задача 59.

Ввести целое число и напечатать его, добавляя перед каждой восьмеркой пробел.

program р39;
  uses crt;
  var i: byte;
      a:string;
begin
  clrscr;
  writeln('a=');readln(a) ;
  for i:=1 to length(a) do
  if (copy(a,i,1) <> '8') then
  write(copy(a,i,1)) else write(' ',8);
  readln;
end.





 У Вас есть материал пишите нам
 
    Copyright © 2008    
  Top.Mail.Ru