uses PT4;
var k,p:integer;
begin
Task('String19');
var s:= ReadString;
var f:=1;
for p:=1 to s.Length do begin
if(s[p] = '-') and (p <> 1) then begin f:=0; break; end; // Проверка на знак "-" в строке
if(s[p] = '.') then begin f:=2; inc(k); end; // K считает кол-во точек
if(k > 1) then begin f:=0; break; end; // Если точек 2 => f:=0;
if(s[p].IsDigit = false) and (s[p] <> '.') and (s[p] <> '-') then begin f:=0; break; end; // IsDigit - функция, которая проверяет является ли символ числом.
end;
print(f);
end.
1:
задается переменная string с значением 'string'
выводится длина списка из символов строки string
2:
задается переменная string с значением 'string'
вывод первого( превращенного в увеличенный символ по примеру(а-А)) символа строки и маленький второй символ переменной string
3:
задается строка
спрашивается строка в string
не понял
вывод переменной answer
4:
задается строка
не понял
вставляются запятые между переменными списка
5:
задается стока
спрашивается строка word
выводится поиск строки в word
Объяснение:
выше
