Процесс выполнения операторов присваивания:
c:=6;g:=132;s:=c∗g
При выполнении оператора c:=6 в ячейку оперативной памяти компьютера с именем c заносится значение
; при выполнении оператора g:=132 в ячейку оперативной памяти компьютера с именем g заносится значение
. При выполнении оператора s:=c∗g значения ячеек оперативной памяти с именами c и g переносятся в процессор, где над ними выполняется операция умножения. Полученный результат заносится в ячейку оперативной памяти с именем
.
// П
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.
Объяснение: