• admin
  • Комментариев: 0
  • Просмотров: 855
  • 16-06-2015, 23:43

Условие: Дана строка символов s. Известно, что среди символов есть по крайней мере одна запятая. Найти такое натуральное i, что si - последняя по порядку запятая.

Решение: 

program stroka;
var S: string;
i, m: integer;
begin
writeln ('Строка: ');
readln (S);
for i:=1 to length(S) do
if S[i]=',' then
m:=i;
writeln ('Последняя запятая в строке под индексом - ', m);
end.

Блок схема:

Пояснение констант, значений, операций и операторов:

 var S: string - вводим данные, типа string (тип строка)

i, m: integer - данные типа integer (целые числа)

begin - тело программы, скобки выполнения операций

writeln ('Строка: ') - вывод текста с задержкой окна, в нашем случае на экране увидим текст: Строка:

readln (S) - считывание информации с задержкой окна, в данном случае строки S

for i:=1 to length(S) do - если i входит в промежуток от единицы до длины строки, то

end - конец программы