//PascalABC.NET
var i:integer;
begin
for i:=1 to 10 do
writeln(i,'*6=',i*6);
<span>end.</span>
Ответ:
Учитель
Объяснение:
ПРофессии компьютера могут быть разные. Он может быть секретарем ( хранить документы, помогать в написании текстов). Может быть художником. если будем говорить о создании рисунков в редакторе. Может быть инженером, если использовать специльные программы для конструирования. Может быть и учителем. В настоящее время есть масса образовательных программ. Они могут быть офлайн ( установлены на ПК) или онлайн, в сети интеренет. Но компьютер может не только давать информацию, но и проверять знания, использование тестов на ПК. Здесь можно долго рассуждать, обучающие видео ролики, специальные тренажеры и т.д. При этом он может быть не только школьным учителем, но и способен обучать взрослых людей разным профессиям.
//PascalABC.NET 3.2 сборка 1318
Var
x1,y1,x2,y2,x3,y3,r,count:integer;
begin
read(x1,y1,x2,y2,x3,y3,r);
if sqr(x1)+sqr(y1)=sqr(r) then inc(count);
if sqr(x2)+sqr(y2)=sqr(r) then inc(count);
if sqr(x3)+sqr(y3)=sqr(r) then inc(count);
writeln(count);
end.
Пример ввода:
0 1 1 0 -1 0 1
Пример вывода:
3
Скопировать все песни и поставить в проигрыватель.