Программа с while
program raf105;
var a:integer;
begin
while a<>15 do
begin
a:=a+1;
writeln(a);
end
end.
Программа с repeat
program raf105;
var a:integer;
begin
repeat
a:=a+1;
writeln(a);
until a=15;
end.
<em>Написано на языке PascalABC.NET</em>
# Код на ruby 2.2.3p173
def zadanie(results)
results = results.sort.reverse
return [results[0], results[1]]
end
# Примеры применения
p zadanie([1,2,7,8,6,4,8,8,4,9])