1.
Самый высокий - Евгений. Самый низкий - Николай.
2.
У Ани белая. У Маши синяя. У Вари красная.
4.
У Яши флешка 8 гб.
У Алины в 2 раза больше т.е. 16 гб.
У Марата 4/3 от их суммы т.е. (16+8)/3*4=32 гб.
5.
1) арена
2) телевизор
1. (51+40+22)-((32+11+8)-6)=68, остаются 2, которые ходят пить пиво вместо занятий!))
насчет второго, да... 30.
<em>// PascalABC.NET 3.2, сборка 1356 от 04.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(5,20,40); a.Println;
Writeln('S=',a.Where(x->x mod 8=0).Sum)
end.
<u>Пример</u>
24 23 35 40 22
S=64
Program z6; Var a: array [1..10] of string; i,j,l:integer; s,g,s_2:string;Begin write('Введите строку - '); readln(s); l:=s.Length; i:= 1; j:= 1; while i <= l do begin while (s[i] <> ' ') and (i <= l) do begin a[j]:=a[j] + s[i]; i:= i + 1; if (i > l) then break; end; j:= j + 1; i:= i + 1; end; i:= 1; while (a[i] <> '') do begin g:=a[i]; g[1]:= (Upcase(g[1])); s_2:= s_2 + g + ' '; i:= i + 1; g:=''; end; writeln(s_2);End.