Ответ 25 Кб т. к.:
16 страниц * 40 строк * 40 символов = 25600 символов
1 символ = 8 бит = 1 байт
Значит 25600 байт что равно
= 25 Кб
<em>// PascalABC.NET 3.2, сборка 1385 от 14.02.2017</em><em>// Внимание! Если программа не работает, обновите версию!</em>begin
var a,b,h:real;
Write('Введите a,b,h: '); Read(a,b,h);
var n:=Trunc((b-a)/h);
for var i:=0 to n do begin
var x:=a+i*h;
var y:=cos(x)*sqrt(x);
Writeln(x:6:3,y:15:5)
end
end.
<u>Пример</u>Введите a,b,h: 0.2 3.2 0.3
0.200 0.43830
0.500 0.62054
0.800 0.62315
1.100 0.47574
1.400 0.20111
1.700 -0.16799
2.000 -0.58852
2.300 -1.01046
2.600 -1.38169
2.900 -1.65348
3.200 -1.78580
В стандартном Паскале нет функции десятичного логарифма, поэтому воспользуемся соотношением lg(x) = ln(x) / ln(10).
Кроме того, показатель степени у числа "е" (-x² / 2xy) можно упростить до -x / 2y.
var
a,x,y:real;
begin
Write('Введите x и у через пробел: '); Read(x,y);
a:=1e5*Ln(Abs(0.8*x))/Ln(10)*Exp(-x/(2*y));
Writeln('a=',a)
end.
Var y,x:integer;
begin
for x:= -4 to 4 do begin
y:=sqr(x)+2;
writeln ('y=',y);
end;
end.
Var
i: integer;
begin
i := 2;
while i < 15 do
begin
write(i:3);
i := i + 2
end;
writeln
end.
Тестовое решение:
2 4 6 8 10 12 14
var
p: real;
begin
p := 2;
while p < 9.01 do
{Нельзя задавать ровно 9 из-за накопления ошибок шага 0.2}
begin
write(p:4:1);
p := p + 0.2
end;
writeln
end.
Тестовое решение:
2.0 2.2 2.4 2.6 2.8 3.0 3.2 3.4 3.6 3.8 4.0 4.2 4.4 4.6 4.8 5.0 5.2 5.4 5.6 5.8 6.0 6.2 6.4 6.6 6.8 7.0 7.2 7.4 7.6 7.8 8.0 8.2 8.4 8.6 8.8 9.0