Блок-схема оператора if.составить начало> ввод> a> 0> нет> да> a: =a+1> вывод a> конец

240

356

Посмотреть ответы 2

Ответы на вопрос:

NotLikeThis

Информатика

4,4(54 оценок)

Что нужно сделать то? схему нарисовать, или программу написать?

kholov03

Информатика

4,7(13 оценок)

Var s: string; i,k: integer; begin write('введите строку: '); readln(s); k: =0; i: =1; repeat if (s[i] = ' ')or(s[i] = ',')or(s[i] = ': ')or(s[i] = '; ')or(s[i] = '? ')or(s[i] = '! ') then if not((s[i+1] = ' ')or(s[i+1] = ',')or(s[i+1] = ': ')or(s[i+1] = '; ')or(s[i+1] = '? ')or(s[i+1] = '! ')) then k: =k+1; i: =i+1 until s[i] = '.'; writeln('количество слов: ',k+1); end.