Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Помогите решить задачи, 8 класс(Pascal ABC)
Задача №3. Дан диаметр окружности d. Найти ее длину L = 3.14*d.
Задача №4. Дана длина ребра куба a. Найти объем куба V = a 3 и площадь его поверхности S = 6a 2 . Задача
№5. Дано расстояние в сантиметрах. Найти число полных метров и километров данного расстояния

Ответ оставил Гость

//Pascal ABC.NET v3.1 сборка 1172

//3

Var
 d:real;
begin
 readln(d);
 writeln(3.14*d);
end.

//4
Var
 a:real;
begin
 readln(a);
 writeln(V=,a*a*a);
 writeln(S=,6*sqr(a));
end.

//5
Var
 a:real;
begin
 readln(a);
 writeln(a/100, м);
 writeln(a/100000, км);
end.