? - один символ.* - любое количество символов.
Во всех случаях второй и третий символ in и далее несколько символов. В расширение повторяется mp и все. Далее разное количество символов - *.
Ответ :2
var
count, min, max: integer;
str: string;
begin
min := 191;
max := 149;
readln(str);
while (str <> '!') do
begin
if (str.ToInteger in [150..190]) then
begin
if (str.ToInteger > max) then max := str.ToInteger
else if (str.ToInteger < min) then min := str.ToInteger;
count := count + 1;
end;
readln(str);
end;
writeln(count);
write(min, ' ', max);
end.
С системным.
Как только Вы включаете компьютер (планшет, смартфон) , начинает загружаться операционная система. А она относится к классу системного программного обеспечения.
2 яхты по затоке в одну сторону, 2 яхты по узкой реке в другую. Друг за другом, то есть.
Program koordunatu;
Var
x,y:real;
Begin
Write( 'x=>' );
readln(x);
Write( 'y=>' );
readln(y);
if (x=0) and (y=0) then
writeln('M(0,0)')
else
if x=0 then
writeln('OY')
else
if y=0 then
writeln('OX');
if (x>0) and (y>0) then writeln('І');
if (x<0) and (y>0) then writeln('II');
if (x<0) and (y<0) then writeln('III');
if (x>0) and (y<0) then writeln('IV')
End.