На завтрак Глеб может выбрать плюшку, бутерброд или пряник, а запить их он может кофе, соком, кефиром или чаем. Из скольких вариантов завтрака Глеб может выбирать?
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 begin var s:=ReadLines('in.txt').ToArray; var n:=StrToInt(s[0]); var a:=s[1].ToWords.Select(e->StrToInt(e)).ToArray; var f:=OpenWrite('out.txt'); Writeln(f,n,' - (кол-во чисел)'); foreach var e in a do Write(f,e,' '); Writeln(f); Writeln(f,'Среднее значение четных ', a.Where(x->x.IsEven).Average); Writeln(f,'Среднее значение нечетных ', a.Where(x->x.IsOdd).Average); f.Close end.
9 + 9 + 9 = 27, при вводе числа, больше 27 будут выведены все трёхзначные числа.
Procedure ABC(A:integer); Var i:integer; Begin For i:= 100 to 999 do if (i div 100)+((i div 10) mod 10)+(i mod 10)<=A then Write(i,' '); End; Var A:integer; Begin Write('Введите целое число: '); ReadLn(A); ABC(A) End.
плюшка с кофе, соком, кефиром или чаем. - 4 варианта
бутерброд с кофе, соком, кефиром или чаем - 4 варианта
пряник с кофе, соком, кефиром или чаем- 4 варианта
итого 12 вариантов
Объяснение: