===== PascalABC.NET =====
begin
ReadSeqIntegerWhile(p -> p <> 0)
.Where(p -> p mod 3 = 0).Min.Println
end.
<span>S(y+x, y, z);
- ошибка
y+x имеет тип real+byte = real и не может быть подставлен туда, где ожидался byte. Это связано с запретом в Паскале неявного приведения вещественного типа к целочисленному.
</span>
2^4y Мбайт= 2^3x бит
<span>2^23+4y=2^3x </span>
<span>23+4y=3x - это первое уравнение </span>
<span>2^x Кбайт= 2^y Мбайт</span>
<span>2^x = 2^ 10+y </span>
<span>x=10+y - второе уравнение </span>
<span>23+4y= 3(10+y) </span>
<span>23+4y=30+3y </span>
<span>y=7 </span>
<span>x=17</span>
Program prog;
uses crt;
var
a:array[1..100] of real;
m:integer;
s1, s2, s3, s4:real;
begin;
for m:=1 to 12 do
begin
write('В месяц ',m,' температура t = ');
readln(a[m]);
end;
s1:=(a[12]+a[1]+a[2])/3;
s2:=(a[3]+a[4]+a[5])/3;
s3:=(a[6]+a[7]+a[8])/3;
s4:=(a[9]+a[10]+a[11])/3;
writeln('Средняя температура зимних месяцев = ', s1:0:3);
writeln('Средняя температура весенних месяцев = ', s2:0:3);
writeln('Средняя температура летних месяцев = ', s3:0:3);
writeln('Средняя температура осенних месяцев = ', s4:0:3);
end.
Содержимое ячейки не меняется в зависимости положения ячейки в таблице. Если изменить числовое значение ячеек A5 или C3, то результат формулы изменится и подставится в то, или иную ячейку где, непосредственно, написана формула