Var
a,b,d,K,kp:integer;
P:boolean;
Begin
kp:=0;
ReadLn(a,b);
if (a = 1)or(a = 2) then
Begin
kp:=2;
Write(2,' ',3)
end
else if a = 3 then
Begin
kp:=1;
Write(3);
End;
if a < 5 then a:=5
else if a mod 2 = 0 then a:=a+1;
While a<=b do
Begin
K:=Trunc(Sqrt(A));
d:=3;
P:=true;
While d <= K do
Begin
if A mod d = 0 then P:=false;
d:=d+2
End;
if P then
Begin
kp:=kp+1;
Write(' ',a);
End;
a:=a+2
End;
if kp = 0 then Write(0)
End.
Программа выведет такие значения
8 -2
Program zadacha;
Var t, v1, t1, v2, t2, v: real;
begin ;
Writeln ('введите значения v1, t1, v2, t2');
Readln (v1, t1, v2, t2);
t := (v1*t1+v2*t2)/(v1+v2);
Writeln ('T смеси = ', t);
<span>end.</span>
Пусть объем жесткого диска 160Гб
160Гб = 160 * 1024 * 1024 * 1024 байт = 171 798 691 840 байт
Вес одного символа 8 бит = 1 байт
Вес страницы = 40 * 60 * 1 байт = 2400 байт
Кол-во страниц = 171 798 691 840 / 2400 = 71582788
Округляем в меньшую сторону, ведь страниц может быть только целое кол-во
Высота = 223 696 213 / 100 = 715827.88cm = 7158.2788m
1) именительного падежа,единственного числа.
2)<span>следовательно, число не оканчивается на 0</span>