1) var x,y,z: integer; begin for x: =1 to 10 do for y: =1 to 10 do for z: =1 to 10 do if sqr(x)+sqr(y)=sqr(z) then writeln('x= ',x,' y= ',y,' z= ',z); end.2)var x,y,k,r: integer; begin write('введите радиус: '); readln(r); k: =0; if r> 0 then begin for x: =-r to r do for y: =-r to r do if sqr(x)+sqr(y)< =sqr(r) then k: =k+1; write('количество целых точек: ',k); end elsewrite('радиус должен быть положительным! '); end.
sokolskiy458
11.12.2022
А) источник информации: учитель рассказывает об успеваемости ребёнка матери --> приёмщик информации: мама внимательно слушает учителя. б) источник информации: учитель объясняет новую тему на уроке --> приёмщик информации: ученики внимательно слушают и запоминают информацию. с) источник информации: газеты содержат множество различной информации --> приёмщик информации: ребёнок читает нужную ему информацию д) источник информации и приёмщик информации: мама спрашивает у своей дочки, как она провела день, и слушает ответ на этот > приёмщик информации и источник информации: девочка слушает вопрос и отвечает на него
7 000 000 000 наносекунд=7 секунд