Чтобы перевести десятичное число в 5-чную систему, нужно это число последовательно делить на 5 с остатком. Например, переведём 183.
Делим
183 : 5 = 36 (остаток 3)
36 : 5 = 7 (остаток 1)
7 : 5 = 1 (остаток 2)
Теперь выписываем последний результат деления (у нас это 1) и после него все остатки в обратном порядке: 2 1 3
Получается число
Проверяем:
Var a,l,s:real;
Begin
Read(a);
S:=1+1/2;
L:=2;
While s>=a do
Begin
Writeln(s);
L:=l+1;
S:=1+1/l
End
End.
Var a:array[1..20] of real;
var out:real;
var i:integer;
begin
out:=0;
for i:=1 to 20 do
begin
a[i]:=random();
if abs(out)<abs(a[i])
then out := a[i];
end;
write(out);
end.
Программа рисует узор (см. вложение), состоящий из 20 эллипсов, каждый из которых повёрнут на 9 градусов относительно предыдущего. Угол поворота задаётся переменной а, которая изменяется от 0 до 180 (так как 20*9=180). Cos(a) и Sin(a) задают положение эллипса.
Каждый эллипс рисуется с помощью 6280 точек (цикл по k) командой PutPixel? начиная с крайней левой точки эллипса. Cos(t) и Sin(t) задают отклонение каждой точки от "центра" эллипса.
PS Кстати, в программе есть ошибка - цвет надо задавать как "clWhite", a не "White" - хотя задавать белый вобще нет смысла - его не будет видно :)