Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
800*600*24*4/8=5760000 байт=5625 кбайт
varn: integer; beginreadln(n); n: = n div 10; n: =(n div 100)*10 +n mod 10; writeln(n); n: = (n mod 10)*100+ ((n mod 100) div 10)*10+ n div 100; writeln(n); end.
1) отр(х+отр(х*у))=отр(х+отр(х)+отр(у))=отр(1+отр(у))=отр(1)=0
2) отр(ху)+отр(х)+у+z=отр(х)+отр(у)+отр(х)+у+z=отр(х)+1+z=1
3)а*с+а+а*отрв+отрс*а=а+а*отрв=а
4)отр(отрх*отру)+отрх=х+у+отрх=1
uses crt; var a,s: integer; begins: =0; writeln('введите числа'); while a< > 0 do beginreadln(a); if (a> 0) then s: =s+a; end; writeln('s=',s); end.
Популярные вопросы