Const n=10; var a,b:array[1..n] of integer; i,si,smax:integer; begin Writeln('Введите парами длины катетов ',n,' треугольников'); smax:=0; for i:=1 to n do begin Read(a[i],b[i]); si:=a[i]*b[i]; { пополам разделим потом максимальное } if si>smax then smax:=si end; Writeln('Треугольник(и) с максимальной площадью, равной ',smax/2,':'); for i:=1 to n do if a[i]*b[i]=smax then Writeln('№',i,': ',a[i],'x',b[i]); Writeln end.
Пример работы Введите парами длины катетов 10 треугольников 7 16 18 10 9 5 15 11 9 19 15 12 11 13 9 20 14 10 12 8 Треугольник(и) с максимальной площадью, равной 90: №2: 18x10 №6: 15x12 №8: 9x20
1 поколение: период 1946-1956; элемент базы: электронные лампы; название компьютера: Eniac; характеристика: 10-20тысяч обрабатывал в секунду огромные размеры; память: перфокатор, перфоленты. 2 поколение: 1956-1964;элемент базы: транзисторы; название компьютера: БЭСМ-3, Урал-1; характеристика:100.000-1.000.000. Оборобатывал в секунду,большие размеры: память: магнитные ленты. 3 поколение: период 1964-1971; элемент базы: интеграмая схема (микросхема); название компьютера: IBM 360/370; характеристика: 10.000.000.обрабатывал в секунду; память: магнитный диск, магнитные ленты. 4 поколение: период 1971 по наше время; элемент базы: микросхема; название компьютера: ПК; характеристика: 10млрд обрабатывал в секунду: память: жёсткий диск, флешке, лазерный диск. 5 поколение: период конец хх веков; элемент базы: искусственный интеллект, СБИС; название компьютера: GigaNT; характеристика: в разработки; память в разработки.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
