В приложенном файле находится текст пьесы А. Н. Островского “Гроза”. В пьесе 5 действий, каждое действие состоит из явлений, которые обозначены, например, так: “Явление первое” (Найдите примеры в тексте, это вам с решением задачи). Как и в примере в лекции, реплики персонажей отделены от их имени двоеточием. Ваша задача - написать функцию, которая определяет, встречались ли персонажи в рамках одного явления. На вход подается две строки - имена персонажей. Ваша программа должна печатать единицу, если персонажи встречаются в рамках одного явления, и 0 иначе. Входной файл называется ‘text.txt’.
var p,i,x,count: integer;
begin
count := 0;
p := 0 ;
for i := 1 to 4 do begin
read (x);
if x >= 0 then begin
p := p*x;
count := count+1
end
end;
if count > 0 then begin
writeln(х );
writeln(p);
end
else
writeln('NO')
end
Переменная p в начале равняется нулю. В эту переменную будет записываться общее произведение неотрицательных чисел, умножая p на каждое неотрицательное число, но при умножении любого числа на 0 произведение будет 0, поэтому нужно в начале присвоить ей единицуВ конце выводится последнее введённое число, а нужно вывести количествоПосле end не стоит точкаПравильный вариант программыvar p,i,x,count: integer;
begin
count := 0;
p := 1;
for i := 1 to 4 do begin
read (x);
if x >= 0 then begin
p := p*x;
count := count+1
end
end;
if count > 0 then begin
writeln(count);
writeln(p);
end
else
writeln('NO')
end.