Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
l*pi*((r+a)^2- (r)^2)*p
p - плотность
var a,c,l,w1,w2,w3 : longint;
begin
readln(a,c);
w1: =0;
w2: =0;
w3: =0;
l: =a mod 10;
while a> 0 do
if a mod 10=c then w1: =w1+1;
if a mod 10=l then w2: =w2+1;
if a mod 2=0 then w3: =w3+1;
a: =a div 10;
end;
writeln(w1,' ',w2,' ',w3);
end.
var a: array[0..10] of integer;
i,x: integer;
read(x);
randomize;
for i : = 1 to 10 do begin
a[i]: =random(4);
if a[i]=x then writeln('a[',i,']');
1. а)11000110;
б)11000001011;
в)1100000101,111;
г)2335,54;
д)3f5d0.
2.а) 100000011;
б)111110100;
в) 1000111001,1101;
г)1110111100000
3.а) 10001111011100;
4.а) 11000; б) 70; в)7е.
Популярные вопросы