Uses graphabc;
begin
window.IsFixedSize := true;
window.Height := 600;
window.Width := 800;
pen.Color := clred;
lockdrawing;
for var i := 0 to 750 do
begin
window.Clear;
DrawRectangle(i, 0, 50 + i, 50);
redraw;
end;
end.
Для любого натурального n верно что последняя цифра числа 6^n=6.
При n=0 получаем 6^0=1 и последняя цифра 1.
При n<0 задача в общем случае неразрешима.
<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
Writeln(ReadInteger('n=')=0 ? '1' : '6')
end.
7 мостов, перелет стоит 9
Единица измерения, Бит, Байт, КБ(КилоБайт), МБ(МегаБайт), ГБ(ГигаБайт), ТБ(ТераБайт)
А 93 в какой системе счисления?