текст и аудио
program z1;
uses drawman;
begin
Field(19,4);
OnVector(1,3);
PenDown;
OnVector(1,0);
OnVector(0,-1);
OnVector(-1,-1);
OnVector(1,0);
PenUp;
OnVector(1,2);
PenDown;
OnVector(1,0);
OnVector(-1,-1);
OnVector(0,-1);
PenUp;
OnVector(3,2);
PenDown;
OnVector(1,0);
OnVector(0,-2);
OnVector(-1,0);
OnVector(0,2);
PenUp;
OnVector(2,0);
PenDown;
OnVector(1,0);
OnVector(0,-2);
OnVector(-1,0);
OnVector(0,2);
OnVector(0,-1);
OnVector(1,0);
PenUp;
OnVector(2,1);
PenDown;
OnVector(1,0);
OnVector(0,-1);
OnVector(-1,-1);
OnVector(1,0);
PenUp;
OnVector(1,2);
PenDown;
OnVector(1,0);
OnVector(0,-2);
OnVector(-1,0);
OnVector(0,2);
PenUp;
OnVector(2,0);
PenDown;
OnVector(1,0);
OnVector(0,-2);
OnVector(-1,0);
OnVector(0,2);
PenUp;
OnVector(2,0);
PenDown;
OnVector(1,0);
OnVector(0,-2);
OnVector(-1,0);
OnVector(0,2);
OnVector(0,-1);
OnVector(1,0);
PenUp;
OnVector(-18,-2);
end.
Объяснение:
Смотри картинку
Цикл работает с разными интервалами. Допустим от -1 до 1 будет 2. От 1 до 2 будет 3. От 5 до 11 будет 38.
Объяснение:
program Sum_cifr;
var i, x, a, b, S:integer;
begin
readln(a, b);
S:=0;
for i:= a to b do
begin
x:=Abs(i); // делаем положительным число, если оно отрицательное
while x>0 do // цикл, в котором будет число
begin //будет разбиваться на цифры
S:= S+(x mod 10); // отсекаем у числа последнюю цифру
x:= x div 10; // и складываем, а после убираем последнюю
// цифру у самого числа
end;
end;
writeln(S)
end.
Текст
Аудио
Изображения
Анимация
Видео
Интерактивность