1,2,3,4
я так думаю если тест то нет не помогу
Program z1; var t, c, d, e, n, z:integer; begin
writeln ('введите любое четырёхзначное число'); writeln; readln (n);
t:=n div 1000;
c:=(n-t*1000) div 100;
d:=(n-t*1000-c*100) div 10;
e:=n-t*1000-c*100-d*10;
z:=t+c+d+e; writeln (z); writeln;
if z mod 2 = 0 then writeln ('да, сумма цифр в числе чётна')
else writeln ('нет, сумма цифр в числе не чётна'); end.
Компьютер способен обрабатывать информацию, которую можно превратить в сигналы: числовую, текстовую, графическую, аудио— и видеоинформацию (мультимедиа).
Крестик например это 1 бит
следовательно всего используется 5 бит на одно слово.
2^5=64 слов
Ответ: максимальное количество слов в данном алфавите 64.
// Дан массив А(30). Сформировать новый массив из значений элементов массива А кратных 5
var ish, krat: array [1..30] of word;
i,j,x :byte;
begin j:=1;
randomize;
for i:=1 to 30 do //заполняем исходный массив случайными числами (до 1000)
begin
ish[i]:=random(1000);
writeln (i,' элемент исходного массива ',ish[i]);
end;
writeln ('находим элементы кратные пяти:');
for i:=1 to 30 do
begin
x:= ish[i] mod 5; //определяем элементы кратные пяти
if x=0 then
begin //и заполняем новый
krat[j]:=ish[i];
writeln (j,' элемент нового массива ',krat[j],' равен ',i,' элементу исходного массива');
j:=j+1;
end;
end;
<span>end.</span>