Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
напиши само ,я
я бы сделал
program p_1; var a,b: real; beginwriteln ('vvedite 1-oe'); read (a); writeln ('vvedite 2-oe'); read (b); if (a> b) thenbegin writeln ( ' 1-oe bolshe (',a,')' ); end; if (a< b) thenbegin writeln ( ' 1-oe menshee. bolshe vtoroe (',b,')' ); end; if a=b thenbegin writeln ('oni ravni'); end; end.
253(8)=10101011(2)
2в4(16)=1010110100(2)
48(16)=1001000(2)
var a: array [1..16] of integer;
i,s,c,d: integer;
begin
randomize;
read(c,d);
for i : = 1 to 16 do begin
a[i]: = random(d+c) - c;
if a[i]> 0 then s: = s + a[i];
end;
writeln(s);
end.
Популярные вопросы