<em>// PascalABC.NET 3.2, сборка 1385 от 14.02.2017</em>
begin
var r:=ReadReal('R =');
Writeln('Vшара = ',4/3*Pi*r*r*r:0:4)
end.
<u>Пример</u>
R = 12.6
Vшара = 8379.1554
44032*16/8 = 88064 б на секунду = 86 Кб
88064*60 = 5283840 байт на минуту ≈ 5Мб
5283840*80 = 422707200 байт на минуту ≈ 403Мб
Растровые редакторы работают с пикселями, а векторные с графическими примитивами: линиями, фигур и пр.
Растровыми редакторами являются "Adobe Photoshop" и "Paint".
Ответ: "Adobe Photoshop" и "Paint".
Если я не ошибаюсь "end" здесь вообще не нужно)
Var a,b:real;
begin
write('a, b: ');
readln(a,b);
writeln(a,' + ',b,' = ',a+b);
if a+b<1
then if a<b then a:=(a+b)/2 else b:=(a+b)/2
else if a<b then a:=a+b else b:=a+b;
writeln('a = ',a,' b = ',b);
end.
Пример:
a, b: -2.8 4.5
-2.8 + 4.5 = 1.7
a = 1.7 b = 4.5