Фраза "я сдаю экзамен по информатике" состоиз из 29 символов. Объем фразы = 29*2 = 58 байт
3) 45
4)
Program z4; Var b,a,i,m:integer; Begin read(b);for i:=1 to b do beginread(a);if a>0 and (a mod 2 = 0 )then m:=m+a; end;writeln(m);End.
Т. к. 1 ребенок любит и капусту и морковь и горох, то:
4 - 1 = 3 ребенка любят капусту и морковь
3 - 1 = 2 детей любят капусту и горох,
2 - 1 = 1 ребенок любит морковь и горох
7 - (1 + 2 + 3) = 1 ребенок любит только капусту
6 - (1 + 3 + 1) = 1 ребенок любит только морковь
5 - (1 + 2 + 1) = 1 ребенок любит только горох
Т. к. мы узнали предпочтения всех детей то сложив количество этих детей получим сколько человек в семье:
1 + 3 + 2 + 1 + 1 + 1 + 1 = 10 детей.
Ответ. В семье 10 детей.
//Pascal ABC.NET v3.1 сборка 1219
Const
n=5;
Var
ar:array[1..n] of real;
i,maxi,mini:integer;
s,min,max:real;
begin
randomize;
min:=2147483647;
max:=-2147483648;
writeln('First array:');
for i:=1 to n do
begin
ar[i]:=random(30);
write(ar[i]:6);
if ar[i]>max then
begin
max:=ar[i];
maxi:=i;
end;
if ar[i]<min then
begin
min:=ar[i];
mini:=i;
end;
s:=s+ar[i];
end;
s:=s/n;
ar[maxi]:=ar[maxi]-maxi;
ar[mini]:=ar[mini]+s;
writeln;
writeln('Final array:');
for i:=1 to n do
write(ar[i]:6);
end.
Var<span> a,f: real;</span><span> n,i,g: integer;</span>begin<span> read(a,n);</span><span> if n<0 then begin</span><span> g:=n;</span><span> n:=-n;</span><span> end;</span><span> f:=1;</span><span> for i:=1 to n do</span><span> f:=a*f;</span><span> if g<0 then write(1/f)</span><span> else write(f);</span><span> readln;</span><span> readln</span><span>end.</span><span> </span>