Студент Георгий закончил последний курс ВТУЗа по специальности : нанотехнологии и микросистемная техника. Какие могут быть риски для его здоровья, связанные со специальностью и будущей профессией по специальности?
1)uses crt; var a,b:integer; s:real; begin readln(a); readln(b); if (a+b>5) then s:=sqrt(a+b) else s:=sqr(a+b); writeln(s); end. 2)uses crt; var a,b,c:integer; pr:real; begin readln(a); readln(b); readln(c); if (abs(a*b*c)>=10) then pr:=(a*b*c)/3 else pr:=(a*b*c)*(a*b*c)*(a*b*c); writeln(pr); end. 3)uses crt; var a,b,sq:integer; begin readln(a); readln(b); if (a>b) then sq:=sqr(a); if (b>a) then sq:=sqr(b); writeln(sq); end. 4)uses crt; var a:integer; begin readln(a); if (a<20) and (a>0) then a:=a-4 else a:=abs(a); writeln(a); end.
1)uses crt; const n=17;//число элементов в массиве var f:array[1..n] of integer; i,s,k:integer; begin randomize; s:=0; k:=0;//чтобы не возникало ошибок, на всякий случай все обнулим for i:=1 to n do begin f[i]:=random(100)-50;//к примеру, взяла интервал от -50 до 50 //всего получилось 100 чисел, минимальное -50 writeln(f[i]); if f[i]>0 then begin s:=s+f[i]; inc(k)//собираем сумму положительных элементов массива //и находим их количество, прибавляя к переменной к единицу end; end; writeln;//протсо сделаем пробел между массивом и результатами, чтобы не получилась каша writeln(s); writeln(k); end. 2)uses crt; const n=5; var l:array[1..n,1..n] of integer; i,j,max,k,t,m,i1,j1:integer; begin randomize; for i:=1 to n do for j:=1 to n do l[i,j]:=random(100)-50; for i:=1 to n do begin for j:=1 to n do write(l[i,j]:4);//это означает, что на запись элемента массива отводится 4 места writeln; end;//таким я вывела на экран двумерный массив в форме матрицы writeln; max:=-50;//чтобы найти максимальный элемент, нужно сначала приравнять его к минимально возможному значению //так как побочная диагональ располагается для строк: от 1 до 4,а для столбцов - от 1 до 4 (сама побочная диагональ нас не интересует), то заведем еще переменные t и m t:=1; m:=4; //теперь найдем минимальный элемент выше побочной диагонали repeat for i:=t to t do for j:=1 to m do if l[i,j]>max then begin max:=l[i,j]; i1:=i; j1:=j;//мы нашли максимальный элемент и запомнили его положение end; inc(t); m:=m-1; until t=5; l[2,2]:=l[2,2]+l[i1,j1]; l[i1,j1]:=l[2,2]-l[i1,j1]; l[2,2]:=l[2,2]-l[i1,j1];// поменяли их местами for i:=1 to n do begin for j:=1 to n do write(l[i,j]:4); writeln; end;//опять выводим матрицу на экран writeln; end.
var a,b:integer;
s:real;
begin
readln(a);
readln(b);
if (a+b>5) then s:=sqrt(a+b) else s:=sqr(a+b);
writeln(s);
end.
2)uses crt;
var a,b,c:integer;
pr:real;
begin
readln(a);
readln(b);
readln(c);
if (abs(a*b*c)>=10) then pr:=(a*b*c)/3 else pr:=(a*b*c)*(a*b*c)*(a*b*c);
writeln(pr);
end.
3)uses crt;
var a,b,sq:integer;
begin
readln(a);
readln(b);
if (a>b) then sq:=sqr(a);
if (b>a) then sq:=sqr(b);
writeln(sq);
end.
4)uses crt;
var a:integer;
begin
readln(a);
if (a<20) and (a>0) then a:=a-4 else a:=abs(a);
writeln(a);
end.