pascal
Объяснение:
var
a, kurs: real;
s: real;
begin
Write('Введите сумму в рублях:');
ReadLn(a);
Write('Введите курс доллара:');
ReadLn(kurs);
s := a * kurs;
WriteLn(a,' руб. = $', s);
end.
pascal
Объяснение:
var
a, kurs: real;
s: real;
begin
Write('Введите сумму в рублях:');
ReadLn(a);
Write('Введите курс доллара:');
ReadLn(kurs);
s := a * kurs;
WriteLn(a,' руб. = $', s);
end.