Var a, i, b: integer;
begin
readln(a, b);
for i := a to b do
writeln(i, ' ', sqr(i));
i := a;
while (i <= b) do
begin
writeln(i, ' ', sqr(i));
inc(i);
end;
<span>end.
В одной программе оба подхода =)</span>
Program z4;
var s,l:integer; {объявляем переменные}
begin
s:=0; {начальное значение}
l:=0; {начальное значение}
while l<3 do {пока l<3 выполняем..}
begin {начало цикла}
l:=l+1; {увеличиваем l}
s:=s+l*l; {вычисляем текущее значение s}
end; {конец цикла}
writeln('s = ',s); {выводим s}
end.
Переведем все числа в степени 8.
![8^{505} + 0 + 0 + ... + 8^{37} + 8^2 + 2 \times 8^1 + 0 = \\ == 1...1(37)...1(2)20](https://tex.z-dn.net/?f=+8%5E%7B505%7D+%2B+0+%2B+0+%2B+...+%2B+8%5E%7B37%7D+%2B+8%5E2+%2B+2+%5Ctimes+8%5E1+%2B+0+%3D+%5C%5C+%3D%3D+1...1%2837%29...1%282%2920+)
Ответ: 3 единицы.
А1. С какого знака начинается ввод формулы в ЭТ? (3) =
А2. С помощью какой формулы можно определить частное от деления содержимого ячеек А1 на В1? (2) =А1/В1
А3. С помощью какой функции можно определить среднее арифметическое диапазона ячеек А1:В3 (2) =СРЗНАЧ(А1:В3)
А4. Какой вид имеет в ЭТ выражение ![\frac{5(A2+C3)}{3(B2-D3)}](https://tex.z-dn.net/?f=%5Cfrac%7B5%28A2%2BC3%29%7D%7B3%28B2-D3%29%7D+)
(3) 5*(A2+C3)/(3*(B2-D3)) -- знаменатель должен быть в скобках, знаки умножения написаны явно
B1. Дан фрагмент ЭТ. Найдите сумму значений...
![A2=A1+\dfrac{A1}{B1}+B1=225+\dfrac{225}{15}+15=255\\B2=A1+\dfrac{A1}{B1-10}=225+\dfrac{225}{15-10}=270\\C2=\dfrac{A1}{A1}+\dfrac{B1}{B1}=1+1=2\\\boxed{A2+B2+C2=255+270+2=527}](https://tex.z-dn.net/?f=A2%3DA1%2B%5Cdfrac%7BA1%7D%7BB1%7D%2BB1%3D225%2B%5Cdfrac%7B225%7D%7B15%7D%2B15%3D255%5C%5CB2%3DA1%2B%5Cdfrac%7BA1%7D%7BB1-10%7D%3D225%2B%5Cdfrac%7B225%7D%7B15-10%7D%3D270%5C%5CC2%3D%5Cdfrac%7BA1%7D%7BA1%7D%2B%5Cdfrac%7BB1%7D%7BB1%7D%3D1%2B1%3D2%5C%5C%5Cboxed%7BA2%2BB2%2BC2%3D255%2B270%2B2%3D527%7D)
B2. =3*C2^A1/(4*B1*A1)+32*C2*B1^4
<span>186Кбайт = 186/1024=0,181640625Мбайт
</span><span>2Кбайта 11 байт = (2*1024+11)*8 = 16472бит
</span>66435 бит = 66435/8/1024=8,1097412109375Кбайт