1) var a,b,d,e,c,k,l,f:integer;
begin
read(a);
b:=a mod 10;
c:=a div 1000;
k:=a mod 100;
e:=k div 10;
l:=a div 100;
d:=l mod 10;
f:=b*c*e*d;
write(f);
End.
2)зачерпнуть 8л, вылить 3 л в ведро ёмкостью 3л, вылить из ведра 3 л, пережить из первого 3л, вылить 3 л, долить оставшиеся 2 л, наполнить первое ведро, долить литр во второе ведро. и того в 1 - 7л, во втором - 3.
Program
var x,y,r:real;
begin
read(x,y,r);
if (x>=0) and (y>=0) and (x^2+y^2<=r^2) and (x<=0) and (y<=0) and (x+y>= -r) then write('в точку') else write('проверь ещё раз');
end.
I=4кб=4096 байт= 32768 бит
k=4096 символов
формула: I=i*k, отсюда выражаем i=I:k = 32768:4096=8 бит
2^8=256 символов
Принтер т.к это устройство вывода а все остальное ввод
Ответ:
с каждой бусинкой по 6 вариаций,всего бусинок 5 разных, значит 5•6=30 вариаций