програмисты помогите пожалуйста решить задачки на паскале

Question

програмисты помогите пожалуйста решить задачки на паскале

Евгений Тельнов Ученик (239), на голосовании 15 лет назад

Дополнен 15 лет назад

спасибо и на этом, правда мне нужно это всё в субботу сдать, как минимум 5 правильных нужно, а то отчислят:(, а я очень плохо понимаю в этом, что то могу сделать, но не до конца....так что пожалуйста сколько сможешь и как сможешь скорее, буду оченб признателен!

Дополнен 15 лет назад

пишите ответы кто может, мне в течении недели сделать надо

Answer 1

program kosinus;
var
s: string;
i:integer;
begin
s:='КОСИНУС';
for i:=1 to length (s) do
begin
writeln(s);
delete(s,1,1);
end;
end.

Компилятора под рукой нет. Поэтому откомпиль, если будут ошибки пиши. Отлажу.

program probel;
var
s: string;
i:integer;
begin
write(' Введите предложение :');
Readln(s);
for i:=1 to length (s) do
if s=',' then insert(s,i+1,' ');
write('Отредактированная строка :',s);
end.

3. Задача.

program Tnakonce;
var
s: string;
i,a:integer;
begin
a:=0;
write(' Введите предложение :');
Readln(s);
for i:=1 to length (s) do
if (s='T') and (s[i+1]=' ') then inc(a);
write('Слов заканчивающихся на Т :',a);
end.

Пока подустал. С массивами позже.