Var a,b,c,p,s:real; m:integer; begin repeat writeln('a,b,c &'); readln(a,b,c); {Вводим стороны до тех пор пока не выполнится условие сущ треуг} until (a<b+c)and(b<a+c)and(c<a+b); writeln('площадь - введите 1 или периметр -2 ?'); {выбираем что считать, если площадь, то вводим 1, периметр - 2} readln(m); case m of 1: begin p:=(a+b+c)/2; writeln('S = ',sqrt(p*(p-a)*(p-b)*(p-c))); {вывод площади} end; 2:writeln(a+b+c); {вывод периметра} end; end. программа 2 Нахождение суммы элементов одномерного массива const n=10; Var a:array[1..n]of integer; i,s:integer; begin for i:=1 to n do begin a[i]:=random(100); {заполнение массива случайными числами [0.100)} write(a[i]:4); {выводим на экран массив} s:=s+a[i]; {считаем сумму} end; writeln; writeln('S= ',s); {выводим сумму} end.
1) Основной инструмент передачи, хранения и обработки информации (9 букв).-компьютер 2) Основное устройство ввода информации (10 букв).-клавиатура 3) "Мозг" компьютера (9 букв).-процессор 4) Устройство вывода информации (7 букв).-монитор 5) Устройство хранения программ и данных (6 букв).-память 6) Устройство для быстрого перемещения по экрану и выбора информации (4 буквы).-мышь 7) Носитель информации, на который записывают программы для хранения (7 букв).-дискета 8) Другое название жёсткого диска (9 букв). -винчестер 9) Устройство, с которого можно вывести на бумагу тексты и рисунки (7 букв).-принтер
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку