1. Составить программу для нахождения площади трапеции. 2. Составить программу для нахождения квадрата суммы двух чисел (по формулам сокращённого
5-9 класс
|
умножения). 3. Составить программу для нахождения объёма параллелепипеда, если известна его длина, ширина, высота.
program a1;
var a, b, h: integer; s: real;
begin
write('Введите основание трапеций a = ');
readln(a);
write('Введите основание трапеций b = ');
readln(b);
write('Введите высату трапеций h = ');
readln(h);
s:=1/2*(a+b)*h;
writeln('Площадь трапеций = ', s);
end.
program a2;
var a, b, c, x: integer;
begin
write('Введите ширину = ');
readln(a);
write('Введите длину = ');
readln(b);
write('Введите высату = ');
readln(c);
x:=a*b*c;
writeln(Обьем паралелепипеда = ', x)
end.
Другие вопросы из категории
Выполняя коhgманду номер 1, КАЛЬКУЛЯТОР умножает число на экране на 2, а выполняя
команду номер 2, вычитает из числа на экране 2. Напишите программу, содержащую не
более 5 команд, которая из числа 7 получает число 44. Укажите лишь номера команд.
Ограничения [Время: 1000ms, Память: 128MB, Сложность: 2%]
За день машина проезжает n километров. Сколько дней нужно, чтобы проехать маршрут длиной m километров?
Входные данные:
Во входном потоке в первой строке через пробел заданы целые значения N и M, значения которых не превышает 30000.
Выходные данные:
Вывести единственное целое число.
Пример входного файла (input.txt):
700 750
Читайте также
1. Составьте программу для определения большего из двух чисел х или у
2. Составьте программу для нахождения площади прямоугольника по заданным сторонам а и б
программы для чисел от 5 до 12