Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты

Помогите пожалуйста Решить задачу в Паскале.

горная порода Ученик (129), открыт 1 месяц назад
Напишите программу для вычисления значение выражения y=10x+6 где x целое число, вводимое с клавиатуры. Вывод оформите следующим образом: при x=... y=... Вводится 3 числа с клавиатуры, найти их сумму Напишите программу, которая будет находить площадь прямоугольника по заданным пользователем значениям длины и ширины.
1 ответ
Иван Козлов Мыслитель (8082) 1 месяц назад
Программа для вычисления значения выражения
 program CalculateExpression; 
var
x, y: Integer;
begin
Write('Введите значение x: ');
ReadLn(x);
y := 10 * x + 6;
WriteLn('При x = ', x, ' y = ', y);
end.
Программа для ввода 3 чисел с клавиатуры и нахождения их суммы:
 program SumOfThreeNumbers; 
var
a, b, c, sum: Integer;
begin
Write('Введите первое число: ');
ReadLn(a);
Write('Введите второе число: ');
ReadLn(b);
Write('Введите третье число: ');
ReadLn(c);
sum := a + b + c;
WriteLn('Сумма введённых чисел: ', sum);
end.
Программа для нахождения площади прямоугольника по заданным длине и ширине:
 program RectangleArea; 
var
length, width, area: Real;
begin
Write('Введите длину прямоугольника: ');
ReadLn(length);
Write('Введите ширину прямоугольника: ');
ReadLn(width);
area := length * width;
WriteLn('Площадь прямоугольника: ', area:0:2);
end.
Похожие вопросы