Итоговая самостоятельная работа с16 по 20 ноября

 Выучить 2 задачи

стр 50 пример 9-2(3 балла)

стр 51 пример 9.3(3 балла)

var St: string;

i , n, k1, k2: integer;

begin

  writeln('Введите текст');

  readln(St);

  n := length(St);

  k1 := 0;  k2 := 0;  

  for  i := 1 to n do  begin

    if St[i] = '.' then      k1 := k1 + 1;

    if St[i] = ',' then      k2 := k2 + 1;

  end;

  if k1 > k2 then    writeln('Точек больше')

                 else

    if k2 > k1 then      writeln('Запятых больше')

                    else      writeln('Количество запятых     равно количеству точек');

end.

 4 балла на правильные ответы на 4 вопроса, что это значит, из тех что я выберу  .

1. writeln('Введите текст');  readln(St);  
2.   n := length(S) ;
3.  for   := 1 to n do
4. for   := 1 to length(S)   do   if S[i] = ',' then      k2 := k2 + 1;
5.  for  i := 1 to  length(S)  do      if st[i] = ','  then st[i]: = '.';
6.   if k1 > k2 then     writeln('Точек больше')  else    writeln('Запятых больше')  ; 
7.   for  i := 1 to n do      if st[i] = 'к' then st[i]: = 'е';
8. var S: string;

ОБОБЩАЮЩЕЕ ВИДЕО