Question

Помогите по информатике.Нужно написать программу на языке pascal. Условие - Перевести доллары от 1 до 10 в рубли

Answer 1

const

   rubles = 66.85;

var dollars:integer;

begin

   writeln('Введите доллары: ');

   readln(dollars);

   writeln(dollars, ' в рублях = ', (dollars * rubles):2:2);

end.

Answer 2

Конечно, помогу! Ниже представлена программа на языке Pascal, которая переводит доллары от 1 до 10 в рубли. Для простоты, предположим, что курс доллара к рублю равен 70 (это значение можно изменить, если вам понадобится другой курс).

pascalCopy code
program ConvertDollarsToRubles;

var
  dollars: Integer;
  rubles: Integer;
  exchangeRate: Integer;

begin
  // Установите курс доллара к рублю
  exchangeRate := 70;

  writeln('Перевод долларов в рубли:');
  
  for dollars := 1 to 10 do
  begin
    rubles := dollars * exchangeRate;
    writeln(dollars, ' доллар(а) = ', rubles, ' рублей');
  end;
end.

Программа использует цикл for для перебора значения dollars от 1 до 10. Затем выполняется простая математическая операция для перевода долларов в рубли по заданному курсу обмена exchangeRate. Каждый результат выводится на экран.