Question

Помогите пожежуто 1. Создать программу, которая, запросив сторону квадрата, выдает, чему равен его периметр и площадь. 2. Создать программу, которая, запросив целое двухзначное число, выдает, чему равна сумма и произведение цифр этого числа. Паскаль.

Answer 1

Ответ:

Первая программа:

program p1;

var

a,p,s : integer;

begin

write('Введите сторону квадрата:');

readln(a);

p := a * 4;

s := a * a;

writeln('Периметр квадрата = ', p);

writeln('Площадь квадрата = ', s);

readln;

end.

Вторая программа:

program p2;

var

a,p,s,pow : integer;

begin

write('Введите число: ');

readln(a);

p := a mod 10;

s := (a div 10) mod 10;

pow := p * s;

writeln('Произведение цифр числа: ', pow);

readln;

end.

Answer 2

Конечно, вот примеры программ на языке Pascal для решения ваших задач:

Программа 1: Вычисление периметра и площади квадрата

pascalCopy code
program SquareProperties;

var
  side, perimeter, area: real;

begin
  writeln('Введите сторону квадрата: ');
  readln(side);
  
  perimeter := 4 * side;
  area := side * side;
  
  writeln('Периметр квадрата: ', perimeter:0:2);
  writeln('Площадь квадрата: ', area:0:2);
end.

Программа 2: Вычисление суммы и произведения цифр двухзначного числа

pascalCopy code
program DigitOperations;

var
  number, digit1, digit2, sum, product: integer;

begin
  writeln('Введите двухзначное число: ');
  readln(number);
  
  if (number < 10) or (number > 99) then
  begin
    writeln('Введено некорректное число. Пожалуйста, введите двухзначное число.');
    exit;
  end;
  
  digit1 := number div 10;
  digit2 := number mod 10;
  
  sum := digit1 + digit2;
  product := digit1 * digit2;
  
  writeln('Сумма цифр числа: ', sum);
  writeln('Произведение цифр числа: ', product);
end.

Обе программы запросят вас ввести необходимые данные и выведут результаты расчетов.