Question

Срочно программа Pascal ABCпрограмма спрашивает стороны прямоугольника (А,В)находят площадь А*В и выводит результат на экран .далее программа спрашивает любое число если оно деляться на 5 ,но выводит сообщение (чило кратно 5)иначе выводит (число не кратно 5). далее программа спрашивает как вас зовут и сколько раз вывести на экране имя .помогите пожалуйста

Answer 1

Скрин давай и я тебе помогу 

Answer 2

Конечно, вот пример программы на Pascal ABC:

program RectangleArea;

var
  A, B, number: integer;
  name: string;

begin
  // Ввод сторон прямоугольника
  writeln('Введите длину стороны A:');
  readln(A);

writeln('Введите длину стороны B:');
  readln(B);

// Нахождение площади прямоугольника и вывод результата
  writeln('Площадь прямоугольника: ', A * B);

// Проверка числа на кратность 5
  writeln('Введите любое число:');
  readln(number);

if number mod 5 = 0 then
    writeln('Число кратно 5')
  else
    writeln('Число не кратно 5');

// Ввод имени и вывод на экран
  writeln('Как вас зовут?');
  readln(name);

writeln('Сколько раз вывести ваше имя на экране?');
  readln(number);

// Вывод имени указанное количество раз
  for var i := 1 to number do
    writeln(name);

end.

Эта программа сначала запрашивает стороны прямоугольника, находит и выводит его площадь. Затем она запрашивает любое число и проверяет, кратно ли оно 5. После этого программа спрашивает имя пользователя и количество раз, которое нужно вывести имя на экране, и выполняет соответствующий вывод.