Программа для печати звездочками одной из фигур: а) елочки (нескольких елочек); б) снежинки (нескольких снежинок); в) домика это программа Paint там окошечко где нарисована звездочка (елочка и т.п.)
<u>PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
ArrRandom(5,0,15).Println.Aggregate(1,(p,q)->p*q).Println
end.
<u>Пример</u>
6 13 7 2 7
7644
Так как кузнечик должен вернуться в начало, то после выполнения цикла он должен быть в координате (6, 4)
так как цикл повторяется 2 раза, то можем посчитать приращение в коодринатах
(3, 2) + (2, 1) = (5, 3) * 2 = (10, 6)
теперь узнаем, сколько надо пройти кузнечику командой 1
(10, 6) - (6, 4) = (4, 2) так как цикл повторяется 2 раза, то разделим на 2
(4, 2) = (2, 1)
так как (10, 6) больше чем (6. 4) по обеим координатам - меняем знаки у обеих координат и получаем (-2, -1)
ну а вообще можно посмотреть на координаты и увидеть, что (3, 2) * 2 и есть (6, 4) - значит делаем противоположную команду для "сместиться на (2, 1)", то есть "сместиться на (-2, -1)"
ответ: сместиться на (-2, -1)
Ответ:
var i:integer;
begin
for i:=1 to 10 do writeln(i:2,' * 2 = ',i*2)
end.
Var ar:array[1..20] of integer;
i:integer;
begin;
for i:=1 to 20 do
begin;
readln(ar[i]);
if (ar[i]>20) or (ar[i]<1) then exit;
if ar[i] mod 2=0 then writeln(sin(ar[i])) else writeln(cos(ar[i]));
end;
<span>end.</span>