1. запишите значение переменной s, полученное в результате работы следующей программы. - id936849720221124 от Dafran 24.11.2022 09:17

Question

Информатика: 1. за­пи­ши­те зна­че­ние пе­ре­мен­ной s, по­лу­чен­ное в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. 2. за­пи­ши­те число, ко­то­рое будет на­пе­ча­та­но в ре­зуль­та­те вы­пол­не­ния про­грам­мы. 3. за­пи­ши­те число, ко­то­рое будет на­пе­ча­та­но в ре­зуль­та­те вы­пол­не­ния про­грам­мы.

Dafran · Accepted Answer

program
var
s: string;
a:array[1..4] of integer;
i:integer;
begin
read(s);
for i:=1 to 4 do a[i]:=0;

for i:=0 to length(s) do
begin
   if s[i]=')' then inc(a[1]);
   if s[i]='(' then inc(a[2]);
   if s[i]='!' then inc(a[3]);
   if s[i]='.' then inc(a[4]);
end;

if(a[1]>a[2])and(a[1]>a[3])and(a[1]>a[4]) then write('Funny')else
if(a[2]>a[1])and(a[2]>a[3])and(a[2]>a[4]) then write('Sad') else
if(a[3]>a[2])and(a[3]>a[1])and(a[3]>a[4]) then write('Angry') else
if(a[4]>a[2])and(a[4]>a[3])and(a[4]>a[1]) then write('Deep') else
   write('Unclear');

end.

MOGZ ответил