// П
uses Drawman;
begin
Field(3, 4);
ToPoint(1, 1);
PenDown;
OnVector(0, 2);
OnVector(1, 0);
OnVector(0, -2);
end.
// Б
uses Drawman;
begin
Field(3, 4);
ToPoint(1, 1);
PenDown;
OnVector(0, 2);
OnVector(1, 0);
PenUp;
ToPoint(1, 2);
PenDown;
OnVector(1, 0);
OnVector(0, -1);
OnVector(-1, 0);
end.
// Ч
uses Drawman;
begin
Field(3, 4);
ToPoint(1, 3);
PenDown;
OnVector(0, -1);
OnVector(1, 0);
OnVector(0, 1);
OnVector(0, -2);
end.
// Ц
uses Drawman;
begin
Field(25, 27);
ToPoint(5, 25);
PenDown;
OnVector(0, -20);
OnVector(15, 0);
OnVector(0, 20);
OnVector(0, -20);
OnVector(2, 0);
OnVector(0, -3);
end.
// Ш
uses Drawman;
begin
Field(4, 4);
ToPoint(1, 3);
PenDown;
OnVector(0, -2);
OnVector(2, 0);
OnVector(0, 2);
OnVector(0, -2);
Onvector(-1, 0);
OnVector(0,2);
end.
// E
uses drawman;
begin
Field(3, 4);
ToPoint(1, 1);
PenDown;
OnVector(0, 2);
OnVector(1, 0);
PenUp;
ToPoint(1, 2);
PenDown;
OnVector(1, 0);
PenUp;
ToPoint(1, 1);
PenDown;
OnVector(1, 0);
end.
(Если я тебя правильно понял то вот держи)
Все однозначные числа от 1 до 9 - это числа Армстронга.
Потому что однозначное число в 1 степени равно самому этому числу.
Сумма этих чисел 1+2+3+4+5+6+7+8+9=45.
Следующее число Армстронга - как раз 153 > 20.
Ответ 45
После последнего цикла for пишем
<span>for i:=1 to 10 do
begin
if a[i] mod 2 = 0 then
s:=s+a[i];
end;</span>
Ввод: r ^ x ^ y С/П.
x^2 <-> x^2 + <-> x^2 - x>=0 11 1 С/П 0 С/П
Вывод: 1, если попадает, иначе 0.
128 кбит/с = 16 кб/с; 1 Гб = 1024 Мб = 1024² Кб = 1048576 Кб. Значит потребуется 1048576 / 16 с = 16384 с. Если считать, что в месяце 30 дней и, соответственно, 30 * 24 * 3600 секунд, то 16384 секунд будут стоить 30 $ * 16384 / (30 * 24 * 3600) ≈ 19 центов.