Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program first; var i,a,b: integer; begin cls; read(a,b,i); if a< 0 then write(sqr(a));
if b< 0 then write(sqr(b));
if i< 0 then write(sqr(i))end.
program xxx;
var k, d, n : integer;
pr : boolean;
begin
writeln('введите число k=');
readln(k);
d: =2;
n: = k div 2;
pr: =false;
while (d< =n) and not(pr) do
if k mod d = o then pr: =true else d: =d+1;
if pr then writeln (k, '- нет, число не простое') else writeln (k, ' да,число простое');
readln
end.
а)сумм(a5: b7)
б)срзнач(c4: c7)
1) отр(х+отр(х*у))=отр(х+отр(х)+отр(у))=отр(1+отр(у))=отр(1)=0
2) отр(ху)+отр(х)+у+z=отр(х)+отр(у)+отр(х)+у+z=отр(х)+1+z=1
3)а*с+а+а*отрв+отрс*а=а+а*отрв=а
4)отр(отрх*отру)+отрх=х+у+отрх=1
Популярные вопросы