Var
r, r1, r2, r3, r4 : real;
begin
write ('R1 = '); readln (r1);
write ('R2 = '); readln (r2);
write ('R3 = '); readln (r3);
write ('R4 = '); readln (r4);
r := r1 + (r2 * r3) / (r2 + r3) + r4;
writeln ('R = ', r);
end.
41 - 3 = 38
38 / 2 = 19
19 - 3 = 16
16 / 2 = 8
8 / 2 = 4
Ответ:21211
Var n,i,j: integer;
<span>begin
</span><span> write('n = '); readln(n);
</span><span> j:=Trunc(sqrt(n));
</span><span> </span><span> for i:=1 to j do write(i*i,' ');
</span><span>end.
</span>
n = 100
<span>1 4 9 16 25 36 49 64 81 100
</span>
8Мбайт = 8*1024 Килобайт = 8 * 1024 * 1024 байт = 8 * 8 * 1024 * 1024 бит = 67108864
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
ReadSeqInteger(ReadInteger)
.Where(t->(t mod 3=0) and (Abs(t) mod 10=9)).Println
end.