var i,n,k,z,x:integer; s:string; BEGIN writeln(s);readln(s); for i:=1 to length(s) do begin if (s[i]='т') then n:=n+1;end; for i:=1 to length(s) do begin if (s[i]='и') then k:=k+1;end; for i:=1 to length(s) do begin if (s[i]='г') then x:=x+1;end; for i:=1 to length(s) do begin if (s[i]='р') then z:=z+1;end; if ((n>0) and (k>0) and (x>0) and (z>0)) then writeln('есть все буквы') else writeln('no');end.
9 + 9 + 9 = 27, при вводе числа, больше 27 будут выведены все трёхзначные числа.
Procedure ABC(A:integer); Var i:integer; Begin For i:= 100 to 999 do if (i div 100)+((i div 10) mod 10)+(i mod 10)<=A then Write(i,' '); End; Var A:integer; Begin Write('Введите целое число: '); ReadLn(A); ABC(A) End.
9 + 9 + 9 = 27, при вводе числа, больше 27 будут выведены все трёхзначные числа.
Procedure ABC(A:integer); Var i:integer; Begin For i:= 100 to 999 do if (i div 100)+((i div 10) mod 10)+(i mod 10)<=A then Write(i,' '); End; Var A:integer; Begin Write('Введите целое число: '); ReadLn(A); ABC(A) End.
s:string;
BEGIN
writeln(s);readln(s);
for i:=1 to length(s) do begin
if (s[i]='т') then n:=n+1;end;
for i:=1 to length(s) do begin
if (s[i]='и') then k:=k+1;end;
for i:=1 to length(s) do begin
if (s[i]='г') then x:=x+1;end;
for i:=1 to length(s) do begin
if (s[i]='р') then z:=z+1;end;
if ((n>0) and (k>0) and (x>0) and (z>0)) then writeln('есть все буквы')
else writeln('no');end.