//pascal abc.net v3.0 сборка 1111 //for var i,n,r: integer; begin readln(n); r: =1; for i: =1 to n do r: =r*i; write(r); end.//whilevar i,n,r: integer; begin readln(n); r: =1; i: =0; while i< > n do begin; inc(i); r: =r*i; end; write(r); end.//repeatvar i,n,r: integer; begin readln(n); r: =1; i: =0; repeat inc(i); r: =r*i; until n=i; write(r); end.
Спасибо
Ответ дал: Гость
var a,b,c,d: integer;
begin
writeln ('vvedite a');
read(a);
writeln ('vvedite b');
read(b);
writeln ('vvedite c');
read(c);
writeln ('vvedite d');
read(d);
if (a> b) and (a> c) and (a> d) then writeln('samoe bolshoe chislo - a')
else writeln('a ne samoe bolshoe');
end.
Ответ дал: Гость
7fe=14*16^0+15*16^1+7*16^2=2046 в 10 с/с 2046/2=1023 байт
Популярные вопросы