Ответ:
128
Объяснение:
Знаю решение комбинаторикой:
Чтобы выбрать 1 цифру нам потребуется 4 варианта (п, е, т, я). для выбора второй цифры мы можем использовать только 2 варианта.( если же первая буква согласная, то вторая - либо е либо я. если первая буква гласная, то вторая - либо п либо т)
для третьей буквы и для всех последующих тоже 2 варианта (по той же логике). в итоге нам нужно перемножить все варианты: 4•2•2•2•2•2=128
//PascalABC.Net
//1
var
a, b, c: real;
begin
readln(a, b, c);
writeln(a+b+c - max(a, max(b, c)) - min(a, min(b, c)));
end.
//2
var
a, b, c: real;
begin
readln(a, b, c);
writeln('Наименьшее число: ', min(a, min(b, c)));
writeln('Наибольшее число: ', max(a, max(b, c)));
end.
Program help;
uses Crt;
var a,cot,cpo:integer;
begin
ot:=0;po:=0;cot:=0;cpo:=0
repeat
writeln('Число: ');
readln(a);
if a<0 then begin ot:=ot+a; inc(cot);end else
if a>0 then begin po:=po+a; inc(cpo); end else
if a=0 then begin
writeln('Кол-во положительных чисел: ',cpo);
writeln('Кол-во отрицательных чисел: ',cot);
end;
until a=0;
readln;
end
VAR I,N,C,KT,SUM:INTEGER;BEGINN:=0;C:=0;KT:=0;FOR I:=50 TO 100 DOBEGIN WRITE (I:3);N:=N+1;IF I MOD 2=0 THEN C:=C+1;IF I MOD 3=0 THEN KT:=KT+1;IF (I MOD 2=0) AND (I MOD 3=0)THEN SUM:=SUM+I;END;WRITELN;WRITELN ('ВСЕГО ', N:2, 'ЧЕТНЫЕ ', C:2, 'КРАТНЫЕ ТРЁМ ',KT:2);WRITELN ('СУММУ ЧИСЕЛ ЧЕТНЫХ И КРАТНЫХ ТРЕМ ', SUM:4);END.