Выбрать место для цветка
Обозначить его форму
Прорисовать основные детали
Прорисовать мелкие детали
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.
Программа работает
var
<span>n,</span><span>i,j,</span><span>s :integer;
</span>begin
Write('введите число');
Readln(n);
for i:=1 to n
do begin
s:=0;
for j:=1 to i div 2 do begin
if i mod j=0 then inc(s);end;
if s=1 then Writeln(i);
end;end.
<span>
П.С. программа находит все простые числа до заданного тобой числа</span>
Первое число умножают на второе и ответ ставят между двумя данными числами.
9×3=27
ставим его между 9 и 3,
получается 9273
ответ:9273