For I in massiv do
Begin
If I mod 2 =0
Then
Write(i,' ') ;
End;
1. 0,25 Кбайт=256 байт = 2048 бит
2. Каждый символ - 8 бит
3. 2048/8=256 символов
Ответ: 1,2
Операция random(n) - генерирует случайное число от 0 до числа n
Формула в ячейке D3 - =$A3-D$1
так как $ используется для абсолютной адресации то изменим формулу для ячейки E6 - =$A6-E$1
Значение ячейки D3 = 17
Значение ячейки E6 = 46
Ответ : 46
(если сумма цифр числа делится на 3, то число делится на 3 нацело)
var a, s: integer;
begin
s:=0;
writeln ('Введите число');
while a<> 0 do
begin
a:= a mod 10
S:=s+a;
end;
if S mod 3 = 0 then writeln ('делится') else
writeln ('не делится');
end.