Строковые величины

[Alesia_Lesia]

Задание 1.Составить программу обработки данного текста:
Определить количество цифр, содержащихся в этом тексте.

Задание 2. Для каждого из указанных видов текста составить программу по выполнению следующих действий:
Напечатать заглавными буквами текст строчных букв.

[Stilet]

Наработки покажешь?

[Alesia_Lesia]

function NumberOfDigits (var s:string):integer;
var i,len,n:integer;
begin
 len:=length(s);
 n:=0;
 for i:=1 to len do if (s[i]>='0') and (s[i]<='9') then inc(n);
 NumberOfDigits:=n;
end;
 
var s:string; n:integer;
begin
 s:='123 this is a test456';
 n:=NumberOfDigits (s);
 write ('n=',n);
 writeln (' PressENTER');
 readln;
end.

[Stilet]

Ну, нормально.
Насчет строчных можно сделать так:

for i:=1 to Length(s) do if s[i] in ['а'..'я'] then 
 write(chr(ord(s[i])-ord('а')+ord('А')))
else
 write(s[i])

[type_Oleg]

Да, NumberOfDigits вроде нормально работает. Только зачем там var, здесь можно без нее. Лучше всегда без var, когда можно.

[Alesia_Lesia]

без какого именно,и это что-то меняет?

[ZX Spectrum-128]

Без var в заголовке функции. Меняет. Если не вдаваться в детали, то можно испортить значение передпваемогопараметра. А это не есть хорошо.

[Poma][a]

без какого именно,и это что-то меняет?
Без этого

function NumberOfDigits (var s:string):integer;
var i,len,n:integer;
begin
 len:=length(s);
 n:=0;
 for i:=1 to len do if (s[i]>='0') and (s[i]<='9') then inc(n);
 NumberOfDigits:=n;
end;

Конечно меняет!
Так если Вы что-то измените в s в этой функции, то Вы измените не локальную копию, а саму S..

Только зачем там var, здесь можно без нее. Лучше всегда без var, когда можно.

Тут нужен const.. Спасемся от изменения переменной, а также от копирования..

[type_Oleg]

Да, и еще не сможете передать в качестве параметра константу. Например, не получится так

kol:=NumberOfDigits('строка7878рор12');

А если var не будет в объявлении, то можно.
В данном задании это может и не имеет значения, но вообще, на будущее ...