Перведите на кумир var a, b, c: integer; begin readln(a, b, c); writeln('сумма= ', a + b + c); writeln('произведение= ', a * b * c); writeln('среднее= ', (a + b + c) / 3); readln(); end.
Все объекты на Рабочем столе можно разделить на 3 группы: ярлыки,файлы,папки.Сведения о файле, папке или ярлыке можно найти в пункте меню Пуск справка и поддержка.Окно-это прямоугольная область экрана, в которой выводится определенная информация: содержимое дисков, программы, создаваемые пользователем документы, запросы и сообщения Windows. Окна можно открывать (разворачивать), закрывать, сворачивать, перемещать, упорядочивать, менять размеры . Открытое окно может занимать целый экран или его часть.Управлять размерами окна можно плавно с мыши и автоматически - с
1. uses crt; var n:string; begin read(n); writeln(strtoint(n[1])*strtoint(n[2])*strtoint(n[3])); end. 2. uses crt; var n,i:integer; res:double; begin read(n); for i:=1 to n do res:=res+cos(1/i); writeln(res:5:3); end. 3. uses crt; var n,i:integer; mult:real; a:array[1..100] of real; begin mult:=1; writeln('Input N and elements of array.'); read(n); for i:=1 to n do begin read(a[i]); if i mod 2=0 then mult:=mult*a[i]; end; writeln(mult); end. 4. uses crt; var n,i,sum:integer; a:array[1..100] of integer; begin writeln('Input N and elements of array.'); read(n); for i:=1 to n do read(a[i]); i:=1; while (a[i]<>0) and (i<=n) do begin if a[i] mod 2=0 then sum:=sum+a[i]; i:=i+1; end; writeln(sum); end.
complete engineering encompasses projecting, installation and validation of cleanroom, hvac and bms systems (gmp classes a, b, c and d)