Как нарисовать в "Кумир" рыбку? Исполнитель Чертежник

использовать Чертежник

алг

нач

сместиться в точку (1,3)

опустить перо

сместиться в точку (3,4)

сместиться в точку (5,3)

сместиться в точку (7,4)

сместиться в точку (6,3)

сместиться в точку (7,2)

сместиться в точку (5,3)

сместиться в точку (3,2)

сместиться в точку (1,3)

поднять перо

сместиться в точку (2,2.95)

опустить перо

сместиться в точку (2,3.05)

сместиться в точку (2.05,3.05)

сместиться в точку (2.05,2.95)

сместиться в точку (2,2.95)

поднять перо

сместиться в точку (0,0)

кон

Объяснение:

Смотри картинку

var

  st: array[0..10000]of char;   s,s1: string;   g,g1,i,j,z: longint;   t: char;

begin

  z: =0;

  readln(s);

  readln(s1);

  g: =length(s);

g1: =length(s1);

for i: =1 to g do

for j: =1 to g1 do if s[i]=s1[j] then

begin

  inc(z);

  st[z]: =s[i];

  break;

end;

for i: =1 to z-1 do for j: =i+1 to z do if st[i]> st[j] then

begin

  t: =st[i];

  st[i]: =st[j];

  st[j]: =t;

end;

st[z+1]: ='-';

for i: =1 to z do i st[i]< > st[i+1] then write(st[i],' ');

end.

var

  a: array[1..5]of integer;

  i: integer;

begin

  for i: =1 to 5 do read(a[i]);

for i: =1 to 5 do write(a[i],' ');

writeln;

for i: =1 to 5 do if a[i]> =1024 then writeln(a[i] div 1024);

writeln;

end.