3)
const n=10;
var a:array [1..n] of integer; r,i:integer;
begin
r:=1;
for i:=1 to n do begin
a[i]:=r; inc(r,2); end;
for i:=1 to n do
write(a[i],' ');
end.

0 0

4 года назад

Представь десятичное число 6703 в шестнадцатеричной системе счисления!

Lusi888 [57]

1A2F получится. ТК. мы число делим на 16

0 0

4 года назад

Вывести все натуральные числа от 20 до 50 кратные 3 и не кратные 5 ( на паскале)

алексеймамутов [36]

<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>

begin

Range(20, 50).Where(t -> (t mod 3 = 0) and (t mod 5 <> 0)).Println

end.

0 0

3 года назад

Как называется фобия боязнь тесноты???Ответе это Срочно оченньь!!

ТаняLove [50]

Клаустрафобия-боязнь тесноты

0 0

3 года назад