Uses crt;
var i:integer;
t:real;
begin
t:=23;
for i:=1 to 20 do
t:=t+0.5;
writeln(t) ;
end.
From random import randint
a=[]
x=0
y=0
for i in xrange(15):
value=randint(-50, 50)
if not value%2: y+=value
else: x+=value
a.append(value)
<span>print "Исходный массив: %s, Сумма чётных: %i, Сумма нечётных: %i, По модулю больше: %i".decode("utf-8")%(a, x, y, max(abs(x), abs(y)))</span>
Program kv_ur;
var a, b, c, d, x1,x2, x:real;
begin
read(a, b, c);
d:= sqr(b) - 4*a*c;
if d<0 then write('нет решений');
if d = 0 then
begin
x:= -b/(2*a); write('один корень: ',x:5:2)
end;
if d>0 then
begin
x1:=(-b+sqrt(d))/(2*a);
<span> x2:=(-b-sqrt(d))/(2*a);
</span> write('два корня: ', 'x1=',x1:5:2,'x2=',x2:5:2)
end
end.
Sub Z1()
Dim n As String
s = InputBox("Как тебя зовут?")
MsgBox ("Привет, программист " & s & "!")
End Sub<span>
</span>
Всего символов в книге - 40 * 80 * 100 = 320 000;
1 символ – это 1 байт, в книге содержится 320 000 байт информации
Переведем в Мб, 320 000 байт / 1024 / 1024 = ~ 0,3 Мб.