Не знаю сойдет или нет, но как бы эту задачу давно решал.

var a:array [1..20] of integer;
i:integer;
begin
for i:=1 to 20 do
begin
a[i]:=random(30)+1;
if a[i] mod 3 = 0 then
write (a[i],' ');
end;
readln;
end.

0 0

4 года назад

Сделайте пожалуйста Кроссворд по теме "Компьютер как универсальное устройство" Буду очень благодарен то первый тот красава)))

Блю

Возьми напиши компьютер по середине потом
клавиатура
о.
монитор
п
ь
ю
т
е
р
дальше возит открой книгу по информ и найди слова

0 0

3 года назад

Прочитать ещё 2 ответа

Сложите числа 1010101(2)+10000101(2)

Оля-96

1010101(2)+10000101(2) = 011011010(2)

0 0

4 года назад

На школьном дворе разбивают 4 клумбы прямоугольной формы. Первая клумба представляет собой квадрат со стороной 8 метров. Вторая

Fenisiferb

1) 8 х 4 = 32(м) - провода на первую клумбу.

2) (8 + 3) х 2 = 22(м) - провода на вторую клумбу.

3) 4 х 4 = 16(м) - провода на третью клумбу.

4) (8 + 4) х 2 = 24(м) - провода на четвертую клумбу.

5) 32 + 22 + 16 + 24 = 94(м) - всего.

Ответ: 94 метра.

0 0

4 года назад