Роздільна здатність,хоча невпевнена
Транспортир - для измерения углов.
Барометр - для измерения давления.
Телескоп нужен для наблюдения за удаленными объектами.
Микроскоп для увеличения изображения предмета на близком расстоянии.
Телескоп и микроскоп это не измерительные приборы.
//Pascal ABC.NET v3.1 сборка 1172
Const
n=4;
Var
ar:array[1..n] of integer;
i,j:integer;
k:real;
begin
writeln('Array:');
for i:=1 to n do
readln(ar[i]);
k:=ar[1]/ar[2];
for i:=1 to n-1 do
if ar[i]/ar[i+1]<>k then
begin
writeln('No');
exit;
end;
writeln('Yup');
end.
Пример ввода:
1
2
4
8
Пример вывода:
Yup
Ответ:
var n, i, x: integer;
begin
randomize;
n := random (7) + 5;
for i := 1 to n do begin
x := random (100) - 50;
write (x:5)
end;
readln
end.
<em><u>Отметь как 5 звезд, нажми на спасибо и выбери как лучший ответ! спасибо!!</u></em>