Program tet;
var i:byte;
a,s1,s2,s3:real;
beginwriteln(' введите значение а');readln(a);s1:=1;s2:=1;for i:=1 to 64 do if i mod 2=1 then s2:=s2*(a-i) else s1:=s1*(a-i);s3:=s2/s1;writeln(s3);<span>end.</span>
V1 - только это монета встречается во всех взвешиваниях.
D
B
B
A
E
A
Выключатель, компьютер, стиральная машина, робот, человек
Program sg3;
uses crt;
var i,a,k, sum: integer;
begin
clrscr;
write('Введите число: ');
readln(a);
k:=0;
for i:=2 to a div 2 do
if a mod i =0 then
k:=k+1;
if k=0 then
write('Простое')
else
writeln('Составное');
while (a<>0) do
begin
sum:=sum+(a mod 10);
a:=a div 10;
end;
write('Сумма цифр= ',sum);
<span>end.</span>
Ответ:
3
Объяснение:
Для десантной техники (Д-6, д-5) 200 метров при отделении от горизонтально летящего самолета (вертолета) на скорости не менее 140 км/ч и задержкой раскрытия ранца 3 секунды