А) блок
б) пуск
в) цветок
г) музыка
д) командир
е)клубника
Var
a, b, c: longint;
begin
readln(a, b);
c := a - b;
if (c > b) then
writeln('Валя собрала на ', c - b, ' кг клубники больше чем Вера.');
if (c < b) then
writeln('Вера собрала на ', b - c, ' кг клубники больше чем Валя.');
if (c = b) then
writeln('Девочки собрали одинаковое количество клубники.');
end.
Var k,k1,k2,kn,n,s:integer;
begin
write('k = ');
readln(k);
k1:=100;
k2:=100;
s:=k1+k2;
if k<=k1 then n:=1 else n:=2;
while s<k do
begin
n:=n+1;
kn:=k1+k2;
s:=s+kn;
k1:=k2;
k2:=kn;
end;
writeln('n = ',n);
end.
Пример:
<span>k = 1100
n = 5</span>
<span>var n,s,i:integer;
begin
write('n = '); readln(n);
if n mod 2 = 0 then n:=n+1;
s:=0;
for i:=1 to 7 do
begin
s:=s+n;
n:=n+2;
end;
writeln('s = ',s);
end<span>.
Пример:
</span><span>n = 10
s = 119</span></span>
1.
₂ ₁ ₀
246₇=7²×2+7×4+7⁰×6=98+28+6=132₁₀
2.
3213÷16=200÷16=12÷16
13 8 12
12813₁₆=C8D₁₆
3.
A2=8,B2=8,C2=4
D2=A1*2
4.
D1=5×$A5÷(3×E2-C$1)
B4=5×$A8÷(3×C5-A$1)