Необходимо написать программки в Паскале:1. Найдите целую часть от разделенья 15
Необходимо написать программки в Паскале:
1. Найдите целую часть от деления 15 на 4 и помножьте ее на 18.
2. Вычислите периметр треугольника. Длины сторон задаются юзером с
клавиатуры.
3. Вычислите площадь и периметр прямоугольника. Длины сторон задаются
юзером с клавиатуры.
4. Вычислите объем и площадь поверхности параллелепипеда. Длины ребер
задаются с клавиатуры.
5. Вычислите длину окружности. Радиус окружности задается с клавиатуры.
Желая бы что-то из этого, спасибо!
1 ответ
Таисия Шеломенцева
//Pascal
//1
begin
writeln((15 div 4)*18);
end.
//2
var a, b, c: real;
begin
write('Введите стороны треугольника A B C: '); readln(a, b, c);
writeln('Периметр = ', a + b + c);
end.
//3
var a, b: real;
begin
write('Введите стороны прямоугольника A B: '); readln(a, b);
writeln('Площадь = ', a * b);
writeln('Периметр = ', 2 * (a + b));
end.
//4
var a, b, c: real;
begin
write('Введите ребра A, B, C: '); readln(a, b, c);
writeln('Площадь = ', (2*(a*b+b*c+a*c)):0:1);
writeln('Объем = ', (a*b*c):0:1);
end.
//5
var r: real;
begin
write('Введите радиус: '); readln(r);
writeln('Длина окружности = ', (2 * pi * r):0:1);
end.
//1
begin
writeln((15 div 4)*18);
end.
//2
var a, b, c: real;
begin
write('Введите стороны треугольника A B C: '); readln(a, b, c);
writeln('Периметр = ', a + b + c);
end.
//3
var a, b: real;
begin
write('Введите стороны прямоугольника A B: '); readln(a, b);
writeln('Площадь = ', a * b);
writeln('Периметр = ', 2 * (a + b));
end.
//4
var a, b, c: real;
begin
write('Введите ребра A, B, C: '); readln(a, b, c);
writeln('Площадь = ', (2*(a*b+b*c+a*c)):0:1);
writeln('Объем = ', (a*b*c):0:1);
end.
//5
var r: real;
begin
write('Введите радиус: '); readln(r);
writeln('Длина окружности = ', (2 * pi * r):0:1);
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Здравствуйте. Нужен цитатный план испытания лётчика в лесу главы2-13 по повести
Разные вопросы.
Я хочу найти решение и ответ для этой задачи и получить
Математика.
Здравствуйте
Меня зовут Виталий, я AdOps-аналитик компании Adfinity.pro
Заинтересовал ваш проект obrazovalka.com
Думаю сможем увеличить
Разные вопросы.
мне очень срочно нужно сочинение по рассказу экспонат номер по дной
Литература.
мне очень срочно нужно сочинение по рассказу экспонат номер по дной
Литература.
В семье из трех человек три электронных устройства: ноутбук, планшет и
Разные вопросы.
Жаркыраган кашка маш жаралгандан ашка маш табышмак жообу менен
Кыргыз тили.
За лето подруги прочитали 48 книг.Причем Оля прочитала в 3 раза
Математика.
Периметр равнобедренного треугольника ABC (AB=BC) равен 34 см. Периметр треугольника ABM,
Разные вопросы.
«Металлическая болванка, нагрета до 420C, охлаждается в воздухе, температура которого 20C,
Алгебра.
Облако тегов