Какое из имен удовлетворяет логическому условию (первая буква согласная -> последняя буква согласная) /\ : (первая буква гласная -> последняя буква гласная) если таких слов несколько выберите самое длинное из них: 1)анна 2)белла 3)антон 4)борис
//прога на Pascal`е var a: array of longint; n, i: longint; // procedure zam(var a, b: longint); var pz: longint;beginpz:=a;a:=b;b:=pz;end; procedure selectsort (rm : longint; var sortmas: array of longint);vari, j, min: longint;begin for i:=0 to rm-2 dobeginmin:=i;for j:=i to rm-1 doif sortmas[min]>sortmas[j] then min:=j; if i<>min then zam (sortmas[i], sortmas[min]);end; end;// beginrandomize;
//прога на Pascal`e type myrec = record rost : byte; ves : byte; end; var mas : array of myrec; n, i : byte; sumves, sumrost : longint; begin write ('Введите кол-во учеников: '); readln (n); setLength (mas, n); for i:=0 to n-1 do begin write ('Введите вес ', i+1, '-го ученика: '); readln (mas[i].ves); inc (sumves, mas[i].ves); write ('Введите рост ', i+1, '-го ученика: '); readln (mas[i].rost); inc (sumrost, mas[i].rost); end;
write ('Средний вес учеников: ', sumves / n, '; Средний рост: ', sumrost / n) end.
1)АННА
(0 -> 0) Λ (1 - > 1) = 1 Λ 1 = 1. Подходит.
2)БЕЛЛА
(1 -> 0) Λ (0 - > 1) = 0 Λ 1 = 0. Не подходит.
3)АНТОН
(0 -> 1) Λ (1 - > 0) = 1 Λ 0 = 0. Не подходит.
4)БОРИС
(1 -> 1) Λ (0 - > 1) = 1 Λ 1 = 1. Подходит.
Самое длинное: БОРИС
ответ: 4)