program ml; uses crt; var x,i: integer; w,l: real; beginclrscr; readln(x); l: =x; for i: =1 to x do beginw: =w+1; l: =x/w; if frac(l) = 0 then writeln(l: 2: 0); end; readkey; end.
Ответ дал: Гость
var a: integer; c1, c2, c3, c4: integer;
begin for a : = 1000 to 9999 do begin c1 : = a div 1000; c2 : = (a div 100) mod 10; c3 : = (a div 10) mod 10; c4 : = a mod 10; if (c1 < > c2) and (c1 < > c3) and (c1 < > c4) and (c2 < > c3) and (c2 < > c4) and (c3 < > c4) then writeln(a); end; end.
Ответ дал: Гость
стандартный программе просмотра изображений и факсов не сохраняет в других форматах.
потому лучше открыть paint или любой другой просмотрщик или графический редактор
просто открыть в нем нужную картинку и файл-сохранить как(в новом окошке внизу в списке выбрать формат)
о форматах написано много в интернете.
если хотите пошаговую инсрукцию, то присоединяйте картинки и табличку, а то так не ясно че делать
Популярные вопросы