Размер шрифта
A- A+
Межбуквенное растояние
Стандартное Среднее Большое
Цвет сайта
A A A A
Изоображения
Выкл Цвет ч/б
Дополнительно
Закрыть

Образец решения задачи

Задача: Составить программу, которая запрашивает курс доллара и выводит на экран таблицу перевода 1, 2, … 10 долларов. 
var
   i: integer;
   y, s:real;
begin
write('1$=');
readln(s);
  for i:=1 to10 do
     begin
        y:=i*s;
        writeln(i,' $= ', y, ' руб.');
     end;
end.

Разделы сайта