Var z,x:real;
begin
readln(x);
z:=cos(1/sqrt(2*x));
writeln(z:0:3);
<span>end.</span>
Не совсем красиво но без массивов
var cur_num, prev_num: integer;
Begin
Writeln('Введите последовательность закончив ее нулем');
read(prev_num);
repeat
read(cur_num);
if cur_num * prev_num > 0 then
writeln('Пара = ', cur_num * prev_num);
prev_num := cur_num;
until cur_num = 0;
End.
Program zadacha;
const pi=3.14;
var r,C,s: real;
Begin
r:=5.4;
C:=2*pi*r;
S:=pi*r*r;
writeln('c=',c);
writeln('s=',s);
end.
1. я думаю с вопросами 1 и 10 ударница справится сама
2. 141(10)=10001101(2)=215(8)=8D(16)
3. 111000111(2)=1*2^8+1*2^7+1*2^6+1*2^2+1*2^1+1*2^0=455(10)
4. 111000111(2)=707(8)=1C7(16) (на каждую триаду битов одна восьмиричная цифра, на каждую тетраду битов одна 16-разрядная цифра)
5. 732(8)=111 011 010(2) (на каждую восьмиричную цифру по три двоичных разряда, так называемая триада)
6. AB2(16)=10*16^2+11*16^1+2=2560+176+2=2738(10)
7. 1126(8)=0010 0101 0110(2)=256(16)
8. F205(16)=1 111 001 000 000 101(2)=171005(8)
9. 987(10)=512+256+128+64+0+16+8+0+2+1=11 1101 1011(2)=3DB(16)