каждый член последовательности начиная с третьего равен произведению двух предыдущих:
2 * 3 = 6
3 * 6 = 18
6 * 18 = 108
Ответ дал: Гость
var
i,j,k: integer;
a,b,c: array [1..30] of integer;
begin
randomize;
j: =0;
k: =0;
for i: =1 to 30 do
begin
a[i]: =random(80)-30;
if a[i] mod 2 =0 then
begin
j: =j+1;
b[j]: =a[i]
end
end;
for i: =30 downto 1 do
if a[i]< 0 then
begin
k: =k+1;
c[k]: =a[i];
end;
for i: =1 to j do
writeln(b[i]);
for i: =1 to k do
writeln(c[i]);
end.
Ответ дал: Гость
на паскале:
program ostatok; var c: integer; beginwriteln('введите число с.'); readln(c); writeln('остаток от деления ',c,' на 10, возведенный в квадрат, равен ',sqr(c mod 10)); end.
Популярные вопросы