# Код на ruby 2.2.3p173
def zadanie(usd, eur)
if usd * 65 > eur * 70
return "USD"
else
return "EUR"
end
end
# # Примеры применения
p zadanie(27, 25)
Что ?тмомтспичвррч?!!!!!!!!!!!!!!!!!!!!!!!!!!!!
На самом деле все элементарно,но понимаю лень читатьь!:D
Имена процедур для Delphi - после //
var f:text; // TextFile
c:char; s:string; i:integer;
begin
Randomize;
assign(f,'data.pas'); // AssignFile
reset(f);
s:='';
c:='0';
while c<>' ' do
begin
read(f,c);
s:=s+c;
end;
for i:=length(s)-1 downto 1 do write(s[i]);
writeln;
close(f); // CloseFile
end.
Пример:
Файл data.pas:
130384565486 10254 658
Результат работы программы:
684565483031