Исполнитель чертёжник пе ре ме ща ет ся на ко ор ди нат ной плоскости, остав ляя след в виде линии. чертёжник может вы пол нять ко ман ду сместиться на (a, b) (где a, b — целые числа), пе ре ме ща ю щую чертёжника из точки с координатами (x, у) в точку с ко ор ди на та ми (x + а, у + b). если числа a, b положительные, зна че ние со от вет ству ю щей ко ор ди на ты увеличивается; если отрицательные, уменьшается. например, если чертёжник на хо дит ся в точке с координатами (4, 2), то ко ман да сме стить ся на (2, −3) пе ре ме стит чертёжника в точку (6, −1). запись повтори k раз команда1 команда2 ко ман даз конец означает, что по сле до ва тель ность ко манд команда1 команда2 командаз по вто рит ся k раз. чертёжнику был дан для ис пол не ния сле ду ю щий алгоритм: повтори 3 paза сместиться на (−1, 0) сме стить ся на (0, 2) сме стить ся на (4, −4) конец какую ко ман ду надо вы пол нить чертёжнику, чтобы вер нуть ся в ис ход ную точку, из ко то рой он начал движение? 1) сместиться на (6, 0) 2) сместиться на (−6, 2) 3) сместиться на (−9, 6) 4) сместиться на (9, 3)
var
a1, a2, b1, b2, c, i, n: integer;
s: array [1..100] of integer;
begin
read(n);
for i := 1 to n do
begin
s[i] := random(100);
if s[i] < 50 then
begin
a1 := a1 + s[i];
a2 := a2 + 1;
end;
if s[i] >= 50 then
begin
b1 := b1 + s[i];
b2 := b2 + 1;
end;
end;
writeln(a1 / a2:0:3, ' ', b1 / b2:0:3);
end.
2)
var
i, n: integer;
f: boolean;
s: array [1..100] of integer;
begin
read(n);
for i := 1 to n do
s[i] := random(5);
f := false;
for i := 1 to n - 1 do
f := f or (s[i] = s[i + 1]);
writeln(f);
end.
3)
var
k, t, i, n: integer;
s: array [1..100] of integer;
begin
read(n);
for i := 1 to n do
s[i] := random(99);
// Println(s);
k := n div 2;
for i := 1 to k div 2 do
begin
t := s[i];
s[i] := s[k + 1 - i];
s[k + 1 - i] := t;
t := s[i+k];
s[i+k] := s[n + 1 - i];
s[n + 1 - i] := t;
end;
// Println(s);
for i := 1 to n do
write(s[i], ' ');
end.
Если в чмсле первая цифра 4 и вторая цифра 3, то числа от 4300 до 4399
На паскле программа выглядит так
var i, n: integer
begin
uses crt;
for i:= 0 to 99
begin
n = 4300 + i;
write (n);
end;
writeln;
end.
Блок-схема совсем простая, нарисуй сама.
1) Начало (в овале)
2) i = 0 (в прямоугольнике)
3) n = 4300 + i (в прямоугольнике)
4) Вывод n (в параллелограмме)
5) Проверка i > 99 ? (в ромбе). Если нет, возврат на п. 3. Если да, вниз.
6) Вывод пустой строки (в параллелограмме)
7) Конец (в овале)