Var i,j, n: integer; begin write('введите размер стороны квадрата -> '); readln(n); for i: = 1 to n do begin for j: = 1 to n do write('*'); writeln; end; end.
Спасибо
Ответ дал: Гость
моя улица в солнечной системе. это земля. она находится третьей от солнца.
Ответ дал: Гость
картинка длжна быть в папке с программой и быть в формате 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.
Популярные вопросы