Приди приди в лес собери листья осматри лист выброси лист возьми1 лист принеси листья домой высуши лист
var a: integer;
begin
writeln ('Введите номер пальца');
readln(a);
if a=1 then writeln ('Большой палец');
if a=2 then writeln ('Указательный палец');
if a=3 then writeln ('Средний палец');
if a=4 then writeln ('Безымянный палец');
if a=5 then writeln ('Мизинец');
end.
1. 16*32*25*2=25600 байт/1024=25 Кбайт
2.16*32*20*2=<span><span>20480 байт=20 Кбайт
3.32*32*30*1=</span></span><span><span>30720 байт=30 Кбайт</span></span>
Program E08;
uses crt;
var
X: array[-1000..1000] of integer;
S,i,k: integer;
begin
clrscr;
writeln('Введите массив X:');
for i:=1 to 10 do
begin
write('X[',i:2,'] ==> ');
readln(X[i])
end;
for i:=1 to 10 do
write(X[i],' ');
writeln;
K:=0;
for i:=1 to 10 do
begin
S:=X[i] mod 3;
if S = 0 then
K:=K+1
end;
writeln('Ответ: ',K)
<span>end.</span>