Налить в чайник воду. Зажечь спичку . Открыть кран газовой горелки. Поднести спичку к горелке. Поставить чайник на плиту. Ждать, пока вода закипит. Выключить газ.
118. Даны коэффициенты квадратного уравнения a,b,c. Найти действительные корни этого уравнения.
program Kv_ur; var a,b,c,x1,x2,D: real; begin Writeln ('Для решения квадратного уравнения'); Writeln ('Введите коэффициент a'); Readln (a); Writeln ('Введите коэффициент b'); Readln (b); Writeln ('Введите коэффициент c'); Readln (c); D:=Sqr(b)-4*a*c; If d<0 then Writeln ('Так как дискрименант ',D,'<0 уравнение не имеет решений'); begin If d=0 then begin x1:=-b/(2*a); Writeln ('Так как дискриминант равен 0 уравнение имеет один корень:'); Writeln(x1); end; If d>0 then begin x1:=(-b- Sqrt(Sqr(b)-4*a*c))/2*a; x2:=(-b+ Sqrt(Sqr(b)-4*a*c))/2*a; Writeln ('Так как дискриминант ',D,'>0 уравнение имеет два корня:'); Writeln ('x1=', x1, ' и x2=', x2); end; end; end.
122. Можно ли прямоугольный пакет размерами A,B,C положить в чемодан размерами X,Y,Z? program chemodan; var a,b,c,x,y,z: real; begin Writeln ('введите размеры пакета'); Writeln ('Введите длину a'); Readln (a); Writeln ('Введите ширину b'); Readln (b); Writeln ('Введите высоту c'); Readln (c); Writeln ('введите размеры чемодана'); Writeln ('Введите длину х'); Readln (x); Writeln ('Введите ширину y'); Readln (y); Writeln ('Введите высоту z'); Readln (z); If (a<=x) and (b<=y) and (c<=z) then Writeln ('пакет можно положить') else Writeln ('пакет положить нельзя'); End.
const z = 30; // максимально число слов var s,w : string; n,p,i,j,l : integer; words : array [1..z] of string; kw : array [1..z] of integer; r : boolean; begin writeln ('введите строку'); readln (s); writeln ('укажите кол-во повторений'); readln (n); l := Length(s); p := 1; w := ''; for i := 1 to l do if (s[i] <> ' ') and (s[i] <> '.') and (s[i] <> ',') then w := w + s[i] else begin for j := 1 to p do if w = words[j] then begin kw[j] := kw[j] +1; r := true; end; if not r then begin p := p +1; words[p] := w; kw[p] := kw[p] +1; end; w := ''; r := false; end; for i := 1 to p do if kw[i] > n then writeln (words[i]); end.
Зажечь спичку .
Открыть кран газовой горелки.
Поднести спичку к горелке.
Поставить чайник на плиту.
Ждать, пока вода закипит.
Выключить газ.