Решите пожалуйста Задачи на Паскале

[Тоха]

Нужно решить эти задачи до понедельника иначе меня могут исключить из училяги!
№1. Дан текст из строчных латинских букв, за которыми следует точка. Напечатать все буквы, входящие в текст по одному разу.
№2. N спортсменов - многоборцев принимают участие в соревнованиях по M видам спорта. По каждому виду спорта спортсмен набирает определённое кол-во очков. Выч-ть сколько очков в сумме набрал каждый спортсмен после окончания соревнований. Выч-ть разницу в очках для спортсменов занявших первое и последнее места.
№3. Дан файл Tovar, содержащий сведения об экспортируемых товарах:
указываются наименования товара; страна, импортирующая товар; V поставляемой партии в штуках. Составить список стран, в которые экспортируется данный товар, и указать общий объем его экспорта.
№4. Найти количество делителей натурального числа, больших K (К вводить с клавиатуры)
№5. Дано нутур. число : верно ли что сумма цифр данного числа равна А (А вводится с клавиатуры) <!--emo&:(-->[img]style_emoticons/<#EMO_DIR#>/sad.gif[/img]<!--endemo-->

[Night Angel]

Уточни задание второй задачи, остальные решены.

Код: выделить все

var s:string;
i:integer;
begin
write('Text:');read(s);write('Result:');
for i:=1 to length(s) do
   if pos(s[i],s)>=i then write(s[i]);
end.

Код: выделить все

{файл ввода в формате "товар;страна;количество"}
var f:text;
vol,w,e:integer;
s,q:string;
begin
assign(f, 'c:\input.txt');
reset(f);
writeln('Result:');
while not Eof(f) do
begin
readln(f,s);
delete(s,1,pos(';',s));
q := copy(s,1,pos(';',s)-1);
delete(s,1,pos(';',s));
val(s,w,e);
writeln(q);
vol := vol + w;
end;
write('Total vol:',vol);
close(f);
end.

Код: выделить все

var k,n,i,l:integer;
begin
write('k=');read(k);
write('n=');read(n);
l:=1;
for i:=k+1 to n-1 do
   if (n mod i) = 0 then inc(l);
write('Result: ',l);
end.


Код: выделить все

var s:string;
a,b,i,c,d:integer;
begin
write('Chislo: ');read(s);
write('A: ');read(a);
for i:=1 to length(s) do
begin
   val(s[i],b,c);
   d := d + b;
end;
if a = d then write('Result: true')
else write('Result: false');
end.

[Тоха]

Большоооооооооооооооооооооооооое спасибо, ты меня очень выручил. Вторую задачу не надо. Есть другая: Дан файл, содержащий текст, включающий в себя русские и английские слова. Получить новай файл, заменив в исходном все заглавные буквы сточными и наоборот.
И ещё одна: Изобразить на экране ЭВМ следующий рисунок (дальше рисунок, гусиница, типа буквы Г вверх ногами, из кружочков ,четыре кружочка снизу и где последний там вверх ещё три, на самом верхнем глаза, рот, и нос )

[Night Angel]

Вот про замену букв. Для русского сам допиши нужные буквы в процедуре swap

Код: выделить все

var f:text;
   s:string;
   i:integer;
procedure swap(c:char);
begin
if(c>='a')and(c<='z') then c:=UpCase(c) else
case c of
'A':c:='a';
'B':c:='b';
'C':c:='c';
'D':c:='d';
'E':c:='e';
'F':c:='f';
'G':c:='g';
'H':c:='h';
'I':c:='i';
'J':c:='j';
'K':c:='k';
'L':c:='l';
'M':c:='m';
'N':c:='n';
'O':c:='o';
'P':c:='p';
'Q':c:='q';
'R':c:='r';
'S':c:='s';
'T':c:='t';
'U':c:='u';
'V':c:='v';
'W':c:='w';
'X':c:='x';
'Y':c:='y';
'Z':c:='z';
end;
end;

begin
assign(f, 'c:\input.txt');
reset(f);
while not Eof(f) do
begin
readln(s);
for i:=1 to length(s) do
   swap(s[i]);
writeln(s);
end;
close(f);

end.

<span style='color: #999999'>Добавлено([mergetime]1109529416[/mergetime]):</span>
И рисунок хоть в виде гифа выложи.

[Тоха]

Давай в чате пообщаемся вот мой anton_1945@mail.ru

[Night Angel]

До завтрашнего вечера не буду тут - учиццо надо.