var
s : string;
flag : boolean;
i, c : integer;
begin
readln (s);
c : = 0; flag : = false;
for i : = 1 to length (s) do
begin
if flag then
begin
if s[i] = ' ' then flag : = false;
end
else
if s[i] < > ' ' then
begin
inc (c);
flag : = true;
end;
begin
end;
end;
writeln (c);
end.
Поделитесь своими знаниями, ответьте на вопрос:
Для какого из чисел ложно высказывание: не( число> 60) или ( число нечетное) варианты : 1) 98; 2) 81; 3) 13; 4) 18.
1) Тип обрабатываемой информации: числовая, Правило преобразования: первая буква числа, ?=»о» (одиннадцать)
2) Тип обрабатываемой информации: числовая, Правило преобразования: первая буква числа, обозначающего количество цифр в записи исходного числа, «ч»
3)Тип обрабатываемой информации: текстовая, Правило преобразования: определяет часть речи (первая буква), ?=»с» (река- существительное)
4) Тип обрабатываемой информации: текстовая, Правило преобразования: определяет род слова, ?=»с»(шоссе — средний род)
5) Тип обрабатываемой информации: текстовая, Правило преобразования: количество букв в слове, ?=5 (вечер, 5 букв)
6) Тип обрабатываемой информации: числовая, Правило преобразования: четность/нечетность числа, ?=»ч»(48, четное)
7) Тип обрабатываемой информации: текстовая, Правило преобразования: определяет «вид» животного, ?=»р» (сом — рыба)
8) Тип обрабатываемой информации: текстовая, Правило преобразования: печатает третью букву в слове, ?=»о» (стол)