Pljus
HANDSON, пиши задачи
08 Июн 2010, 19:58Dops
Ребята, напишите пожалуйста эту програмку на паскале, Очень нужно, просто завтра экзамен!!!
Дана строка символов. Группа символов между пробелами считается словом. Найти количество
слов, начинающихся на '1'; если их больше, чем букв 'т' в строке, то заменить первое слово точками, иначе удалить все запятые.
Дмитрий
Dops, Program proga;
Var i,k,N,t:integer;
s:string;
Begin
k:=0;
t:=0;
N:=length(s);
Readln (s);
if s[1]='1' then k:=k+1;
for i:=2 to N do
Begin
if (s[i]=' ') and (s[i+1]='1') then k:=k+1;
if s[i]='т' then t:=t+1;
end;
i:=0
if k>t then
Repeat
Begin
i:=i+1;
s[i]:='.';
end;
until s[i+1]=' ';
else
for i:=1 to N do
if s[i]=',' then s[i]:=' ';
Writeln ('kolichestvo slov na 1'.k);
Writeln (s);
End.
//Писал с телефона, да и в программировании я не силен, поэтому возможны ошибки. Но сам алгоритм вроде верен, так что ошибки поправишь. 
Exeman
Я немного разбираюсь.язык хорошый для начала програмирования очень полезный! Вопрос почему ты написал writeln (s) a не writeln?
24 Июн 2010, 11:15Java
45,writeln пустой для того, чтобы программа не закрывалась сразу после выполнения(аналог getch() на си)
24 Июн 2010, 16:45Exeman
Дмитрий, теперь понял!Просто как то не встречал раньше такого вывода.теперь буду знать.
Solskjaer
Мегонубский вопрос,просто все вермя что не введу то результатом есть ноль,вот и думаю или я нубко или так оно и нада хД:
Сколько будет:
а)0 div (-12);
b) -28 div(-113);
c) cos(45 div 46);
И на операции mod:
a)-15 mod 17;
b)-1143 mod (-115);
Будет +,отблагодарю рйтингом