Question

Решите задачу в Pascal: Дано 4-х значное число, которое вводится с клавиатуры. Найти и вывести на экран произведение 1 и 4го числа(разделив 4-х значное число), если сумма 2 и 3 числа >5; иначе - вывести на экран сумму 2 и 4 числа

Answer 1

Ответ: помаги луизааааааа плизз

Answer 2

Вот решение задачи на языке Pascal:

pascalCopy code
program CalculateProductOrSum;
var
  number, digit1, digit2, digit3, digit4, result: integer;
begin
  // Вводим 4-х значное число
  write('Введите 4-х значное число: ');
  readln(number);

  // Разделяем число на цифры
  digit1 := number div 1000;
  digit2 := (number div 100) mod 10;
  digit3 := (number div 10) mod 10;
  digit4 := number mod 10;

  // Проверяем условие
  if (digit2 + digit3) > 5 then
    result := digit1 * digit4
  else
    result := digit2 + digit4;

  // Выводим результат
  writeln('Результат: ', result);
end.

Эта программа сначала разделяет введенное 4-х значное число на отдельные цифры, а затем проверяет условие: если сумма второй и третьей цифры больше 5, то программа вычисляет произведение первой и четвертой цифры, иначе она вычисляет сумму второй и четвертой цифры. Результат выводится на экран.