1. составить программу ,которая определяет ,сколько раз в предложении встречается слово "дом". 2. составить программу ,вычисляющую длину самого короткого слова в предложении из трёх слов ,разделённых пробелами. паскаль

286

460

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

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

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.

kasper212

Информатика

4,6(80 оценок)

Вот turbo pascal 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 uses crt; var i,sum,tmax,tmin: integer; sred: real; t: array [1..30] of integer; begin clrscr; sum: =0; writeln('vvedite t -> '); for i: =1 to 6 do begin write(i,' zamer t = '); read(t[i]); end; tmax: =t[1]; tmin: =t[1]; for i: =2 to 6 do begin if t[i]> tmax then tmax: =t[i]; if t[i]< tmin then tmin: =t[i]; end; for i: =1 to 6 do sum: =sum+t[i]; sred: =sum/6; writeln('max t = ',tmax); writeln('min t = ',tmin); writeln('srednyaya t = ',sred: 3: 3); readkey; end