Регистрация
lchayanb17
20.03.2021 21:25
Информатика
Есть ответ 👍

2. Создайте в программе Microsoft PowerPoint экспертную систему, определяющую тип информационной системы Требования к экспертной системе: a) Количество уровней не менее 5 b) Количество вариантов не менее 10 c) Переходы только по ссылкам d) Внешний вид системы соответствует тематике и стандартным требованиям к презентации

223
338
Посмотреть ответы 1

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

ArinaM25
ArinaM25
4,4(39 оценок)
Var a,b,c: integer;   p,n: string; begin readln(p) ; for a: =1 to length(p) do begin n: =copy(p,a,1); if (n=' ') or (n=',') then begin if b> c then c: =b; b: =0 end else b: =b+1; end; if c=0 then c: =b; writeln (c); end.

Популярно: Информатика