Памер шрыфту
A- A+
Iнтэрвал памiж лiтарамі
Стандартны Павялічаны Вялікі
Каляровая схема
A A A A
Выявы
Выкл Колер ч/б
Дадаткова
Закрыць

New

Задача: Составить программу, которая запрашивает курс доллара и выводит на экран таблицу перевода 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.

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