Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
№1. программа на паскале
program xxx;
var n : integer;
x : array[1..10] of integer;
begin
for n: =1 to 10 do
x[n]: =sqr(n) + 5;
wreteln('последовательность х: ')
write(x[i]);
readln
end.
имя возраст занятие
оля 13 пение
петя 14 баскетбол
вася 13 хоккей
катя 15 танцы
коля 11 баскетбол
серёжа 11 футбол
var
i,j,k: integer;
a,b,c: array [1..30] of integer;
randomize;
j: =0;
k: =0;
for i: =1 to 30 do
a[i]: =random(80)-30;
if a[i] mod 2 =0 then
j: =j+1;
b[j]: =a[i]
end
end;
for i: =30 downto 1 do
if a[i]< 0 then
k: =k+1;
c[k]: =a[i];
for i: =1 to j do
writeln(b[i]);
for i: =1 to k do
writeln(c[i]);
(2)-двоичная,(8)-восьмеричная.1)11011(2)= 33(8)=27(10)=1в(16)2)101111(2)=57(8)=47(10)=2f(16)3)11001100(2)=294(8)=204(10)=cc(16)4)100100111000(2)=4470(8)=2360(10)=938(16)
Популярные вопросы