А) 42, б)321..в)87...................................
Sub Z1()
MsgBox ("Моя первая программа на VBScript!!!")
<span>End Sub
В каком приложении работаешь?</span>
25 мб=25000000 байт
100000 байт=100 кб
1 гигабайт=1000000 кб
2500000 кб=<span> 2.5000</span> гигабайт
var
r1, r2:real;
begin
write('R1 = '); readln(r1);
write('R2 = '); readln(r2);
writeln('Площадь кольца равна ', pi * (r1 * r1 - r2 *r2));
end.