// П
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.
(Если я тебя правильно понял то вот держи)
uses crt;
type arr=array[1..1000]of integer;
var N, K, C: integer;
a : arr;
function sum(n:integer):integer;
var s:integer;
begin
s:=0;
while n<>0 do
begin
s:=s+n mod 10;
n:=n div 10;
end;
sum:=s;
end;
procedure fill(var a:arr, C, N, K: integer);
var i:integer;
begin
c:=0;
for i:=1 to N do if sum(i)=k then
begin
inc(c);
a[c]:=i;
end;
end;
begin
clrscr;
write('N K-> ');
readln(N, K);
fill(a, c, N, K);
for i:=1 to с do write(a[i],' ');
readln;
end.
Объяснение:
Современные цифровые технологии, дающие возможность совмещать достижения аудиовизуальной техники (тексты, звуки, видеоизображения, графика и т. п.) и обеспечивающие интерактивное взаимодействие пользователя с компьютером.
Объяснение: