В PasaclABC. NET , используя вс алгоритмы
постройте рисунки упражнение 3​

паскаль же?

var s, x: string; c, n, err, i, d, k: integer; begin readln (s); n: =length(s); for i: =1 to n do begin

d: =d+k;

val(s,k,err);

end;

write (d);

end.

пщояк 17 27 16 33 17

нщёп 15 27 7 17

2.поиск текста на странице

4.изменение кодировки текста на странице

8.изменение размера шрифта для текста страницы

картинка должна быть в папке с программой и быть в формате bmp

usesgraphabc;

varn: string; b: picture; s: integer;

beginwriteln('введите расстояние до зеркала'); readln(s); write('введите имя файла рисунка: '); readln(n); window.clear; b : = picture.create(n); b.load(n); b.draw(50, 50); b.fliphorizontal; b.draw(50+2*s,50); end.