fork download
copy 
  1. program Lab6_Var7;
  2. var
  3.   s: string;
  4.   i, totalWords, kWords: integer;
  5.   percent: real;
  6. begin
  7.   Writeln('Лабораторная работа 6. Вариант 7.');
  8.   Writeln('Введите строку символов:');
  9.   Readln(s);
  10.   totalWords := 0;
  11.   kWords := 0;
  12.   for i := 1 to length(s) do
  13.   begin
  14.     if (s[i] <> ' ') and ((i = 1) or (s[i - 1] = ' ')) then
  15.     begin
  16.       totalWords := totalWords + 1;
  17.       if (s[i] = 'К') or (s[i] = 'к') then
  18.         kWords := kWords + 1;
  19.     end;
  20.   end;
  21.   if totalWords > 0 then
  22.     percent := (kWords / totalWords) * 100.0
  23.   else
  24.     percent := 0.0;
  25.   Writeln('----------------------------------------');
  26.   Writeln('Всего слов в строке: ', totalWords);
  27.   Writeln('Слов, начинающихся на букву "К": ', kWords);
  28.   Writeln('Процент слов на букву "К": ', percent:0:2, '%');
  29.   Writeln('----------------------------------------');
  30.   Readln;
  31. end.
Success #stdin #stdout 0s 5320KB
comments (?)
stdin
copy 
кот кормит собаку и кролика
stdout
copy 
Лабораторная работа 6. Вариант 7.
Введите строку символов:
----------------------------------------
Всего слов в строке: 5
Слов, начинающихся на букву "К": 0
Процент слов на букву "К": 0.00%
----------------------------------------
https://ideone.com/sUXkZN
кот кормит собаку и кролика
language:
Pascal (fpc 3.0.4)
created:
6 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!