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

Question

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

горная порода Ученик (133), на голосовании 5 месяцев назад

Напишите программу для вычисления значение выражения y=10x+6 где x целое число, вводимое с клавиатуры. Вывод оформите следующим образом: при x=... y=... Вводится 3 числа с клавиатуры, найти их сумму Напишите программу, которая будет находить площадь прямоугольника по заданным пользователем значениям длины и ширины.

Answer 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.