Видео в ютуб Эдуард Мецкер Паскаль с нуля ч5
Ответ:
216 кодов
Объяснение:
Коды, используемые Юрой, имеют вид Х***, *X**, **X*, ***X или ****, где на месте Х может стоять любая из 2 гласных букв. Рассмотрим 1 вариант Х*** - это 2*4*3*2=48 (1 из 2-х гласных, 1 из 4-х согл., 1 из 3-х согл., 1 из 2-х согл.). Всего таких 4 варианта 48*4=192, а последний вариант **** - это 4*3*2*1=24. Итого 192+24=216.
Program mm;
var a: array [1..10] of real; i: integer; s: real;
begin
for i:=1 to 10 do begin
Writeln("Введите элемент номер ",i); read(a[i]);
end;
for i:=1 to 10 do
if (a[i]>=2) and (a[i]<=5) then s:=s+a[i];
Writeln(s); readln;
end.
Если что, пиши в личку.
<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
begin
var s:=ReadlnString('->');
var a:=s.ToCharArray.Select(c->c.ToDigit).Partition(i->i.IsOdd);
Writeln('Ср.арифм. нечетных: ',a[0].Average:0:4,
', ср.арифм. четных: ',a[1].Average:0:4)
end.
Пример:
-> 364063632
Ср.арифм. нечетных: 3.0000, ср.арифм. четных: 4.0000