PascalABC.NET
1)
begin
var (V, t, a) := ReadReal3('Введите V0, t, a:');
var V0 := V - a * t;
println('S =', abs(V0 * t + (a*sqr(t)/2)));
end.
2)
print('S =', Pi * sqr(ReadInteger('R =')));
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
PascalABC.NET
1)
begin
var (V, t, a) := ReadReal3('Введите V0, t, a:');
var V0 := V - a * t;
println('S =', abs(V0 * t + (a*sqr(t)/2)));
end.
2)
begin
print('S =', Pi * sqr(ReadInteger('R =')));
end.