Str(x,s) - процедура, преобразующая целое или вещественное выражение x к строковому представлению и записывающая результат в строку s
Val(s,x,errcode) - процедура, преобразующая строку s к целому или вещественному значению и записывающая результат в целую или вещественную переменную x. Переменная errcode - целая; если преобразование невозможно, то в errcode содержится номер первого символа, вызвавшего ошибку
IntToStr(i) - функция, преобразующая целое x в строку
StrToInt(s) - функция, преобразующая строку s к целому; может генерировать исключение
FloatToStr(i) - функция, преобразующая вещественное x в строку
StrToFloat(s) - функция, преобразующая строку s к вещественному; может генерировать исключение
С клавиатуры вводится строка. Необходимо найти сумму цифр в этой строке и их количество.
var
st:string;
i:byte;
s,k:byte;
begin
readln(st);
s:=0;
for i:=1 to st.Length do
if char.IsDigit(st[i]) then begin s:=s+StrToInt(st[i]); k:=k+1; end;
writeln('s = ',s);
writeln('k = ',k);
end.
В множестве элементы не могут повторяться.
Объявление множества
m : set of integer;
const n=30;
var m:set of 1..n;
m1: set of 'a'..'z';
m2:set of (winter, spring, summer, outumn)
Добавление элемента в множество
Include(m, 5);
Исключение элемента из множества
Exclude(m,3);
Вывод элементов множества
foreach i in m do writeln(i);
Проверка на принадлежность элемента множеству
if (5 in m) then writeln('включено');
Объединение множеств
m:=m+m1;
Пересечение m1*m2
Разность s1-s2