Question

Помогите плс кто знает как сделать программу в паскале Напиши программу на Паскале для решения следующей задачи. Даны два числа b и c. Если числа равны, то замени каждое из них произведением b*c, иначе - числом 30. ДАМ 100 БАЛЛОВ

Answer 1

Ответ:

Var

b, c:integer;

Begin

Readln(b, c) ;

If b=c then

b:=b*c;

c:=b*c;

Else

b:=30;

c:=30;

Writeln(b, c);

End.

Объяснение:

Вот так

Answer 2

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

pascalCopy code
program SolveTask;

var
  b, c: integer;

begin
  // Ввод данных
  writeln('Введите значение b:');
  readln(b);
  
  writeln('Введите значение c:');
  readln(c);

  // Проверка условия и замена значений
  if b = c then
  begin
    b := b * c;
    c := b; // или c := c * b; в зависимости от вашего понимания задачи
  end
  else
  begin
    b := 30;
    c := 30;
  end;

  // Вывод результатов
  writeln('Новое значение b: ', b);
  writeln('Новое значение c: ', c);

  readln;
end.

Просто скопируйте этот код в среду разработки Pascal (например, Free Pascal) и выполните программу. Она запросит у вас ввод значений для b и c, затем выполнит условия задачи и выведет результат.