1.
Самый высокий - Евгений. Самый низкий - Николай.
2.
У Ани белая. У Маши синяя. У Вари красная.
4.
У Яши флешка 8 гб.
У Алины в 2 раза больше т.е. 16 гб.
У Марата 4/3 от их суммы т.е. (16+8)/3*4=32 гб.
5.
1) арена
2) телевизор
А)program m;var s,i:integer;begins:= 0;i:=0;for i := 0 to 5 dos := s + 1;writeln(s,',',i);end.
Ответ: s = 6,i = 5
б)program m;var s,n,i:integer;begins:= 1;n:=1;for i := 2 to n dos := s + 1;writeln(s,',',i,',',n);end.
Ответ: s = 1, i= 2 , n = 1
For всегда равен нулю, если делимое меньше делителя. Взятие остатка mod вычисляется остатка полученный при выполнении целичесленного делителя
Var a:array[1..5] of integer;
i,s:integer;
begin
writeln('Введите 5 чисел:');
for i:=1 to 5 do
begin
read(a[i]);
if (a[i] mod 3 = 0)and(a[i] mod 10 = 7) then s:=s+a[i];
end;
writeln('s = ',s);
end.
Пример:
Введите 5 чисел:
125 273 117 471 207
s = 324