Задание №6. Необходимо написать программу, которая вводит четыре числа, находит сумму первых двух и произведение следующих двух чисел.
program calculate;
var
a, b, c, d, sum, product: integer;
begin
readln(a, b, c, d);
sum := a + b;
product := c * d;
writeln('Сумма первых двух: ', sum);
writeln('Произведение следующих двух: ', product);
end.
В данной программе:
- program calculate; - объявление программы с именем calculate.
- var a, b, c, d, sum, product: integer; - объявление шести целочисленных переменных a, b, c, d, sum и product.
- begin - начало блока кода программы.
- readln(a, b, c, d); - чтение четырех целых чисел с клавиатуры и присваивание их переменным a, b, c и d.
- sum := a + b; - вычисление суммы переменных a и b и присваивание результата переменной sum.
- product := c * d; - вычисление произведения переменных c и d и присваивание результата переменной product.
- writeln('Сумма первых двух: ', sum); - вывод значения переменной sum на экран с поясняющим текстом.
- writeln('Произведение следующих двух: ', product); - вывод значения переменной product на экран с поясняющим текстом.
- end. - конец программы.
Для запуска программы необходимо ввести четыре целых числа через пробел или каждое на новой строке, после чего программа выведет сумму первых двух и произведение следующих двух чисел.
Ответ: Программа выводит сумму первых двух и произведение следующих двух чисел.