Question

Напечатать таблицу перевода информатика 9 класс 25 баллов

Answer 1

1)
const d=100;
var a:1..20 ;
begin
Write('Введите кол-во долларов: '); readln(a);
Writeln('Кол-во рублей: ', a*d:0:2);
end.

2)
var a:1..20 ;
d:real;
begin
Write('Введите кол-во долларов: '); readln(a);
Write('Введите курс доллара: '); readln(d);
Writeln('Кол-во рублей: ', a*d:0:2);
end.

Answer 2

Охотник за баллами, 4 раза размноживший свой ответ в 4 экземпляра одного и того же вопроса? Такие тоже есть, конечно...

Answer 3

Но по крайней мере теперь понятно, что Вы из себя представляете))