Решения задач acmp.ru
Главная
Вход
Регистрация
Пятница, 10.07.2020, 05:35Приветствую Вас Гость | RSS
Меню сайта

Категории раздела
Pascal [121]
C++ [76]

Поиск

Мини-чат
200

Легкий заработок!

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Форма входа

Главная » Файлы » Pascal

0231 Распаковка строки

Скачать файл можно после просмотра рекламы:

16.06.2012, 19:34
 program exp1; 
var f,t:text; 
a:string;d,l,chislo,c,i,k:integer; 
begin 
assign(f,'input.txt'); 
assign(t,'output.txt'); 
reset(f);rewrite(t); 
read(f,a); 
k:=1;l:=1; 
while k<=length(a) do begin 
val(a[k],c,d);chislo:=0; 
while d=0 do begin 
chislo:=chislo*10+c; 
inc(k);val(a[k],c,d);end; 
if chislo=0 
then chislo:=1; 
for i:=1 to chislo do 
if l>39 then begin l:=1;writeln(t,a[k]);end 
else begin inc(l);write(t,a[k]);end;inc(k);end; 
close(f);close(t);end.
Категория: Pascal | Добавил: shum
Просмотров: 4962 | Загрузок: 0 | Комментарии: 1
Всего комментариев: 1
1 jein_kolt   (17.01.2015 23:11) [Материал]
простите,но не могли бы вы объяснить все действия пошагово...

Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Это интересно!


Copyright MyCorp © 2020