//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
#include <iostream>
#include <cstdlib>
#include <ctime>
int main()
{
using namespace std;
const int n = 10; //количество элементов массива
int Arr[n];
//как-нибудь заполняем массив
srand(time(0));
int i;
for (i = 0; i < n; ++i)
Arr[i] = rand() % (n * n) + 1;
//выведем его на экран
for (i = 0; i < n; ++i)
cout << Arr[i] << " ";
cout << endl;
int p;
for (i = 1; i < n; ++i)
{
p = i;
while (p % 2 == 0)
p /= 2;
if (p == 1)
cout << "Arr[" << i << "] = " << Arr[i] << endl;
}
cout << endl;
return 0;
}
var
a, b: integer;
begin
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
var x := Range(a, b);
var y:=(x.Where(x -> (x>=10) and (x<=99)));
writeln('Двузначные числа от A до B: ');
y.Println;
writeln('Двузначные числа, которые делятся на 15: ');
y.Where(x -> (x mod 15)=0).Println;
end.
Program otvet0x40;
var x,i:integer;
begin
for i:=0 to 40 do begin
x:=sqr(i)+i+41;
write(' x(',i,')=',x);
end;
<span>end. </span>