Question

Даю 100 балівНаписати програму для розв'язання прикладу s=(f+t)*yв програмі Pascal​

Answer 1

Если я вас правильно понял и пользователь сам всё вводит, то вот решение

var

f, t, y, s: integer;

begin

read(f);

read(t);

read(y);

s:=(f+t)*y;

writeln(s);

end.

Answer 2

Ось приклад програми на мові Pascal, яка вирішує ваш приклад s=(f+t)*y:

pascalCopy code
program Solver;
var
  f, t, y, s: Integer;
begin
  writeln('Введіть значення f:');
  readln(f);
  
  writeln('Введіть значення t:');
  readln(t);
  
  writeln('Введіть значення y:');
  readln(y);
  
  s := (f + t) * y;
  
  writeln('Результат: s = ', s);
end.

В даній програмі ми використовуємо змінні f, t, y і s для зберігання значень та результату обчислення. Користувачу пропонується ввести значення f, t і y, після чого програма обчислює вираз (f + t) * y та виводить результат s.

Зверніть увагу, що використовується writeln для виведення повідомлень користувачу та результату. Ви можете модифікувати програму, додавши додаткові повідомлення або використовуючи інші засоби введення/виведення, в залежності від ваших потреб.