28 января 2010
ввести довільний текст. у даному тексті знищитивсі символи (,) і підрахувати довжину утвореного тексту
переведи на русский, и завтра как сдам физику сделаю если раньше никто не сделает
http://vkontakte.ru/club5862140 Написание программ на языке Pascal – быстро и недорого
http://vkontakte.ru/club105253 Программисты PASCAL
http://vkontakte.ru/club2130 PasCaL FoReVeR!!!!
Перевод:
Ввести любой текст. В нем удалмть все символы (,)и подсчитать длину получившегося текста.
легко же. за "зачетку" подарок могу ))) но только если не срочно – завтра. ибо щас учу физику
Мне тоже на завтра нужно)
http://pastebin.ca/1769816
моя проще )
var str: string; i: integer; newstr: string;
begin
readln(str); {vvodim stroky} newstr:=''; {obnylyaem novuyu}
for i:=1 to length(str) do {cikl po kaghdomy simvolu iz stroki} if str[i]<>',' then {esli simvol NE zapataya} newstr:=newstr+str[i]; {kopiruem ego v novuyu stroku}
writeln(newstr); {vivodim novuyu stroku} writeln(length(newstr)); {vivodim dlinu novoy stroki}
readln; {zaderzhka, mozhno udalit'}
end.
Спасибо Никита µαιηηιкα Токарчук
переведи на русский, и завтра как сдам физику сделаю
если раньше никто не сделает
http://vkontakte.ru/club5862140
Написание программ на языке Pascal – быстро и недорого
http://vkontakte.ru/club105253
Программисты PASCAL
http://vkontakte.ru/club2130
PasCaL FoReVeR!!!!
Перевод:
Ввести любой текст.
В нем удалмть все символы (,)и подсчитать длину получившегося текста.
легко же. за "зачетку" подарок могу ))) но только если не срочно – завтра. ибо щас учу физику
Мне тоже на завтра нужно)
http://pastebin.ca/1769816
моя проще )
var str: string;
i: integer;
newstr: string;
begin
readln(str); {vvodim stroky}
newstr:=''; {obnylyaem novuyu}
for i:=1 to length(str) do {cikl po kaghdomy simvolu iz stroki}
if str[i]<>',' then {esli simvol NE zapataya}
newstr:=newstr+str[i]; {kopiruem ego v novuyu stroku}
writeln(newstr); {vivodim novuyu stroku}
writeln(length(newstr)); {vivodim dlinu novoy stroki}
readln; {zaderzhka, mozhno udalit'}
end.
Спасибо Никита µαιηηιкα Токарчук