program pole; var a, b, c, d, n, kolvo, x, y: real; begin write ('За сколько часов топчет землю Нейромонах Феофан? '); read (a); write ('За сколько часов топчет землю Балалаечник Никодим? '); read (b); write ('За сколько часов топчет землю Косолапый Мишка? '); read (c); write ('За сколько часов топчет землю 1 Добрый Молодец? '); read (d); write ('За сколько часов нужно выкопать землю? '); read (n); x:=1/a+1/b+1/c; kolvo:=(1/n-x)/(1/d); if (kolvo<0) then write ('Группа справится без молодцев.') else begin y:=kolvo; if (((trunc(y*10)) mod 10) <5) then kolvo:=kolvo + 1; write ('Вот столько вам потребуется добрых молодцев: ', round(kolvo)); end; end.
Везде значения вводятся с клавиатуры! на java если изучали массив: public class qwert { public static void main(String args[]) { Scanner scn = new Scanner(System.in); int[] a = new int[5]; int k = 0; for (int i = 0; i < 5; i++) { a[i] = scn.nextInt(); k = k + a[i]; if (i == 4) System.out.println(k/i); } }} если не изучали массив: public class qwert { public static void main(String args[]) { Scanner scn = new Scanner(System.in); int a = scn.nextInt(); int b = scn.nextInt(); int c = scn.nextInt(); int d = scn.nextInt(); int e = scn.nextInt(); int s = (a + b + c + d + e) / 5; System.out.println(s); }} на паскале через массив: var a:array [1..5] of integer; i:integer; s:real; begin for i := 1 to 5 do begin readln(a[i]); s := s + a[i]; if i = 5 then write (s/i); end; end. не через масивы: var a,b,c,d,e :integer; s:real; begin readln(a,b,c,d,e); s := (a+b+c+d+e)/5; write(s); end.
Процессор - мозг
Видео карта - выводит изображение на монитор
Материнская пата - соединяет все
Оперативная память - содержит временные файлы
Жесткий диск - хранит все файлы
Разъемы:
USB
HDMI
Display port
Объяснение: