Целые или вещественные числа (real или integer)
возвращаемое значение в случае, если присутствует деление или аргумент-вещественное число, может быть только вещественным.
Например:
y=ax+b
если a, x, b - целые, то у может быть как целым, так и вещественным
если а или х или b вещественное, то у только вещественное
или
у=а/х
а и х - могут быть как целыми так и вещественными
у - в любом случае вещественное число
Если я всё правильно понял, то выходит, что первая строчка, к примеру, 33333, а вторая 55555.
154: 2 вариант ответа
И где 153 задание?
//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