Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
const n = 10;
var ar: array[1..n]of integer;
i,j,tmp: integer;
begin
randomize;
write('массив до сортировки: ');
for i: =1 to n do
ar[i]: =random(101)-50;
write(ar[i], ' ');
end;
for j: =i to n do
if(ar[i] > ar[j])then
tmp: =ar[i];
ar[i]: =ar[j];
ar[j]: =tmp;
writeln();
write('массив после сортировки: ');
end.
program nm12;
var a, d : integer;
writeln (' vvedite diametr kruga i storony kvadrata ');
readln (d);
readln (a);
if d< =a then writeln (' krug pomestits9 v kvadrate ')
else writeln (' krug ne pomestits9 v kvadrate ');
readln;
2, 3, 6, 18, 108
каждый член последовательности начиная с третьего равен произведению двух предыдущих:
2 * 3 = 6
3 * 6 = 18
6 * 18 = 108
Популярные вопросы