картинка длжна быть в папке с программой и быть в формате bmp
uses graphabc;
var n: string; b: picture; s: integer;
begin writeln('введите расстояние до зеркала'); 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.
Ответ дал: Гость
поправьте меня если ^ это не указатель стпени, но если это степень то вот просто:
var a,x: extended; n,i: longint; begin read(x); read(n); a: =1; for i: =1 to n do a: =a*x; writeln(a: 0: 0); end.
Популярные вопросы