триста восемьдесят девять миллиардов триста шестьдесят пять миллионов четыреста две тысячи двести один
Ответ дал: Гость
картинка длжна быть в папке с программой и быть в формате 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.
Ответ дал: Гость
program divisors;
var
n,i: integer;
begin
readln(n);
for i: =n downto 1 do if n mod i = 0 then write(i,' ');
Популярные вопросы