15. Исполнитель Чертежник перемещается на координатной плоскости, оставляя след в виде линии. Чертежник может выполнять команду Сместиться на (a, b) (где а. 6-целые числа), перемещающую Чертежника из точки с координатами (x, y) в точку с координатами (x + a, y + b). Если числа с. в положительные, значение соответствующей координаты увеличивается; если отрицательные, уменьшается. Чертежнику был дан для исполнения следующий алгоритм: Повтори 7 раз 7 Сместиться на (-1, 2) Сместиться на (-5, 2) Сместиться на (4,-4) Конец Какую команду надо выполнить Чертежнику, чтобы вернуться в исходную точку, из которой он начал движение? 1) Сместиться на (14, 0) 2) Сместиться на (15, 1) 3) Сместиться на (16, 2) 4) Сместиться на (17, 3)
var
i: Integer;
l: Single;
counter: Integer;
begin
counter := 0;
for i := 0 to 14 do begin
Read(l);
if l >= 165 then
counter := counter + 1 ;
end;
Writeln(counter);
end.
Второй вариант
const
cN: Integer = 15;
cMinSuitableLength: Single = 165;
var
arr: array [0..14] of Single;
i, counter: Integer;
begin
for i := 0 to Length(arr) - 1 do
Read(arr[i]);
counter := 0;
for i := 0 to Length(arr) - 1 do
if arr[i] >= cMinSuitableLength then
counter := counter + 1;
Writeln(counter);
end.
Объяснение:
var
i: Integer;
l: Single;
counter: Integer;
begin
counter := 0;
for i := 0 to 14 do begin
Read(l);
if l >= 165 then
counter := counter + 1 ;
end;
Writeln(counter);
end.
Второй вариант
const
cN: Integer = 15;
cMinSuitableLength: Single = 165;
var
arr: array [0..14] of Single;
i, counter: Integer;
begin
for i := 0 to Length(arr) - 1 do
Read(arr[i]);
counter := 0;
for i := 0 to Length(arr) - 1 do
if arr[i] >= cMinSuitableLength then
counter := counter + 1;
Writeln(counter);
end.
Объяснение: