Все слова в данном задании заканчиваются на одну и ту же букву, каждое следующее слово содержит больше - id1441095420201119 от Dispensable 19.11.2020 00:44

Question

Информатика: Все слова в данном задании заканчиваются на одну и ту же букву, каждое следующее слово содержит больше букв, чем предыдущее. 1. Слово, используемое для обозначения объекта с целью отличия этого объекта от других. 2. Несколько команд, выполняемых подряд. 3. Создание эффекта непрерывного движения некоторых объектов за счёт быстрого последовательного воспроизведения изображений. 4. Трансляция программы, записанной на исходном языке программирования, на язык, близкий к машинному. Какие эти 4 слова?

Dispensable · Accepted Answer

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

MOGZ ответил