Program n_1;
var a:array[1..1000] of integer;
i, n:integer;
begin
writeln('Введите кол-во элементов');
readln(n);
for i:=1 to n do
begin
a[i]:=random(64000)-32000;
writeln (a[i],' ');
end;
end.
Перепроверь массив и скомпилируй.
// Example program#include <iostream>#include <string>
using namespace std;
int count_;const unsigned int DIM1 = 6;const unsigned int DIM2 = 6;int m[DIM1][DIM2] = { { 'S', '.', '.', '.', '#', '#' }, { '#', '.', '#', '.', '.', '.' }, { '.', '.', '#', '.', '.', '#' }, { '.', '.', '#', '#', '#', '.' }, { '#', '.', '.', '.', '#', '#' }, { '#', '#', '#', '.', '.', 'F' }};int find_p(int x, int y) { if (x < 0 || x > 5 || y < 0 || y > 5) return 0; if (m[y] [x] == 'F') return 1; if (m[y] [x] != '.' && m[y] [x] != 'S') return 0; m[y] [x] = '+'; count_++; if (find_p (x, y - 1)) return 1; if (find_p (x + 1, y)) return 1; if (find_p (x, y + 1)) return 1; if (find_p (x - 1, y)) return 1; m[y] [x] = 'x'; return 0;}int main(){ find_p(0, 0); cout<<"\n Otvet="<<count_;}
Var a,b,c,n,i:integer;
begin
writeln('На что должно делиться (2 числа через пробел) =>');
readln(a,b); {делится на а и b но не делится на c}
writeln('На что не должно делиться (1 число) =>');
readln(c);
writeln('Верхняя граница(1 число) =>');
readln(n);
for i:= 1 to n do
if (i mod a = 0) and (i mod b = 0) and (i mod c <> 0) then
writeln(i);
end.
var i:integer;
begin
for i:= 1 to 30 do
if (i mod 2 = 0) and (i mod 3 = 0) and (i mod 4 <> 0) then
writeln(i);
end
2)
var i:integer;
begin
for i:= 50 downto 1 do
if (i mod 2 <> 0) then
writeln(i);
end.
Вот тебе один ромб, проделывай в последовательности изменив пару координат.
Program rs_3;
Uses Drawman;
Begin
Field (11,12);
ToPoint (2,1);
Pen Down;
ToPoint(2,1); ToPoint(5,1);
ToPoint(5,1); ToPoint(6,2);
ToPoint(6,2); ToPoint(6,5);
ToPoint(6,5); ToPoint(5,6);
ToPoint(5,6); ToPoint(2,6);
ToPoint(2,6); ToPoint(1,5);
ToPoint(1,5); ToPoint(1,2);
ToPoint(1,2); ToPoint(2,1);
Pen Up;
ToPoint(3,2);
PenDown;
ToPoint(3,2); ToPoint(2,3);
ToPoint(2,3); ToPoint(2,4);
ToPoint(2,4); ToPoint(3,5);
ToPoint(3,5); ToPoint(4,5);
ToPoint(4,5); ToPoint(5,4);
ToPoint(5,4); ToPoint(5,3);
ToPoint(5,3); ToPoint(4,2);
ToPoint(4,2); ToPoint(3,2);
End.
<span>1001011001001,1
001 = 1
001 = 1
011 = 3
001 = 1
1 = 1
т.е. целая часть имеет вид 11311
теперь дробная часть
100 = 4
следовательно число </span><span>1001011001001,1 в 8 системе имеет вид
11311,4</span>
