<h3>PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (a,d,k):=ReadReal3('Введите a, d, k');
for var i:=0 to Trunc((d-a)/k) do
begin
var x:=a+i*k;
var y:=x**3+4*Abs(x);
Writeln(x:30:15,y:30:15)
end
end.
Юзай калькулятор)))) очень помогает, и программа в плей маркете есть , называется примерно myscriptcalculator как то так
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
procedure RedFrac(a,b:integer; var c,d:integer); // сокращение дроби
function Gcd(a,b:integer):integer; // НОД
begin
while b<>0 do begin a:=a mod b; Swap(a,b) end;
Result:=a
end;
begin
var sgnc:=Sign(a); // мы должны учитывать знак!
var sgnd:=Sign(b); // мы должны учитывать знак!
c:=Abs(a); d:=Abs(b);
var g:=Gcd(c,d);
c:=(c div g)*sgnc; d:=(d div g)*sgnd
end;
begin
var p,q,r,s:integer;
Write('Введите числитель и знаменатель: '); Read(p,q);
RedFrac(p,q,r,s);
Writeln(p,' / ',q,' = ',r, ' / ',s)
end.
<u>Пример</u>
Введите числитель и знаменатель: 384 4096
384 / 4096 = 3 / 32
Если считать, что используется однобайтная кодировка типа ASCII, то один символ кодируется одним байтом.
Тогда для строки потребуется 64×1 = 64 б, для страницы 48×64 = 3 072 б = 3 072 / 1 024 = 3 Кб, а весь учебник займет 512 × 3 = 1 536 Кб
Школьная библиотека разместится в 50 000 × 1536 = 76 800 000 Кб =
76 800 000 / 1024 = 75 000 Мб = 75 000 / 1024 ≈ 73.24 Гб
Количество дисков составит 75 000 / 700 ≈ 107.1, т.е. 108.
