Var s: string;
begin
read(s);
if (pos('<<,_>>', s) = 0) then
writeln('<<,_>> не встречается в заданной строке')
else
writeln('<<,_>> встречается в заданной строке');
end.
<h2>Программа написана и протестирована на языке PascalABC.NET</h2>
- var
- A, B, C: real;
- e, f: real;
- begin
- Readln(A, B, C);
- Readln(e, f);
-
- if (A >= e) and (A <= f) then Writeln(A);
- if (B >= e) and (B <= f) then Writeln(B);
- if (C >= e) and (C <= f) then Writeln(C);
- end.
Для увеличения картинки нажмите на лупу (расположена на фотографии) либо откройте фотографию в новой вкладке.
Set /p a="Name: "
dir %a%
@pause
Насколько я помню, так:)