Так как из условия задачи последняя буква в названии города должна быть гласная, то из представленных вариантов подходит только Сочи.
Ответ: 5
Другой человек заходит в лифт или лифт сломался или гномик хочет быть в форме
1)
Var
n,i:integer;
Begin
Write('n = ');ReadLn(n);
For i:= 1 to 9 do
WriteLn(i,'*',n,' = ',i*n);
End.
2)
Var A,B:integer;
Begin
WriteLn('Введите натуральное число');
ReadLn(A);
B:=A mod 10;
While (A div 10 > 0) do
A:=A div 10;
if A>B then WriteLn('Первая больше')
else if A<B then WriteLn('Последняя больше')
else WriteLn('Цифры равны')
End.
Procedure prime(n: integer);
var i: integer;
begin
for i := 2 to round(sqrt(n)) do
if n mod i = 0 then
begin
writeln('Число ', n, ' составное');
exit
end;
writeln('Число ', n, ' простое')
end;
begin
prime(3);
prime(8);
prime(23);
prime(35);
end.
Вывод:
Число 3 простое
Число 8 составное
Число 23 простое
Число 35 составное
Как бы написал я:
program n_1;
var x1, x2, y1, y2, x, y: integer;
begin
writeln ('Введите значения координат(x1,x2,y1,y2,x,y):');
readln (x1, x2, y1, y2, x, y);
if (x>x1) and (x<x2) and (y>y2) and (y<y1) then writeln('Точка с координатами (',x,';',y,') пренадлежит прямоугольнику')
else writeln('Точка с координатами (',x,';',y,') не пренадлежит прямоугольнику');
end.
Булевой переменной не нужно, она же 1 раз используется.
Далее, ошибка была (x<2) нужно было
Ну или если только без ошибки, то вот:
program n_1;
var x1, x2, y1, y2, x, y: integer;
a: Boolean;
begin
writeln ('Введите значения координат');
readln (x1, x2, y1, y2, x, y);
a:= (x>x1)and(x<x2)and(y>y2)and(y<y1);
writeln ('Точка с координатами принадлежит прямоугольнику ', a);
end.