3 клетки вниз, 2 влево, 1 вниз, 3 вправо, 4 вниз, 1 влево, 3 вверх, 1 влево, 7 вниз, 1 вправо, 1 вниз, 2 влево, 4 вверх. Надеюсь так)
Ответ:
48 80
Объяснение:
program abcd;
var
i, j, k: shortint;
begin
for i := 1 to 100 do
begin
k := 2;
for j := 2 to i div 2 do
if i mod j = 0 then Inc(k);
if k = 10 then Write(i, ' ');
end;
end.
<u>PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(ReadInteger('n='),1,200); a.Println;
Writeln('Ср.арифметическое кратных 3: ',
a.Where(t->t mod 3=0).DefaultIfEmpty.Average)
end.
<u>Пример</u>
n= 15
185 103 5 33 116 167 189 36 79 110 188 12 26 11 10
Ср.арифметическое кратных 3: 67.5
Программу для перевода написать? Или какое-то число перевести? Если число, то напишите его
<u>private v</u><u>oid</u> Form1_Paint(<u>object</u> sender, <u>PaintEventArgs</u> e)
{
using (<u>Graphics</u> g = e.Graphics)
{
<u>const byte</u> width = 30;
g.Clear(Color.White);
<u>Random</u> r = new Random();
for (<u>int</u> i = 0; i <= this.Width / width; i++)
for (<u>int</u> j = 0; j <= this.Width / width; j++)
{
g.DrawRectangle(
new Pen(Color.FromArgb(r.Next(0, 255), r.Next(0, 255), r.Next(0, 255)), 3),
width * i,
width * j,
width * (i + 1),
width * (j + 1)
);
}
}
}
