//Вроде бы знакомый аватар...
//Соглашусь с предыдущим оратором, решается в 3 строки без циклов
//Pascal ABC.NET v3.0 сборка 1111
Const
n=10;
var
ar:array[1..n] of integer;
sum,i:integer;
begin
randomize;
for i:=1 to 10 do
begin;
ar[i]:=random(50,100);
sum+=ar[i];
write(ar[i]:4);
end;
writeln;
write('Sum=',sum);
end.
Ответ:
b.8
Объяснение:
Диаграмма построена по 8 строке.
Это больше русский язык)
а) предложение.
б) суффикс
в) местоимение
Var N,i:integer; s:real;beginwriteln('vvedite N');readln(N);s:=1;for i:=2 to N dos:=s-1/i;writeln('Summa = ',s);end.
Синих карандашей = 32*0,5=16
Зеленых карандашей = 32*0,25=8
Желтых = 32* 0,125=4
Красных = 32* 0,0625=2
16+8+4+2=30
Значит белых карандашей 32-30=2