составте блок схему и решите на языке паскаль следующую задачу найти площадь по 3 данным сторонам используя формулу гернона

223

334

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

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

beloborodov05p06igp

Информатика

4,5(36 оценок)

Код pascalabc.net 3.2: var s: string; i,k: integer; begin write('введите строку: '); readln(s); lowercase(s); k: =0; for i: = 1 to s.length-2 do if s[i] = 'д' then if s[i+1] = 'о' then if s[i+2] = 'м' then k: =k+1; writeln(k) end. var s: string; i,d1,d2,d3: integer; begin writeln('введите строку: '); readln(s); i: =0; repeat i+=1 until s[i] = ' '; d1: =i-1; repeat i+=1 until s[i] = ' '; d2: =i-d1-2; repeat i+=1 until i = s.length; d3: =i-d2-d1-2; if d3 < d1 then d1: =d3; if d2 < d1 then d1: =d2; writeln(d1) end.