Влодку сначала садятся один купец и один разбоник перебираются на другой берег остается разбойник купец возвращаетя обратно забирает разбойника едут на другой берег там высажиается купец разбойник возвращается забирает купца едут на другой берег там высажиается купец разбойник возвращается забирает купца едут на другой берег там высажиается купец разбойник возвращается забирает разбойника едут на другой берег и высаживаются оба лодка совершила 9 рейсов
Ответ дал: Гость
напишите цель . то что у вас написано - полный бред. который после устранения синтаксических ошибок(а их тут не одна) работать не будет
Ответ дал: Гость
как я понял тебе нужна программа которая просто выводит на экран нужный тебе текст
вот она
program ohotnik;
uses crt;
var i: integer;
begin
clrscr;
textcolor(4);
write(' ka}i{gbiu ');
textcolor(12);
write(' oxothuk ');
textcolor(14);
write(' }i{ejiaet ');
textcolor(2);
write(' 3hatb ');
textcolor(3);
write(' rge ');
textcolor(1);
write(' cug9t ');
textcolor(5);
write(' fa3ahbi ');
readln;
end.
зы: слова я пытался писать буквами, я не знаю просто: поддерживает твой паскаль буквы или нет..
Ответ дал: Гость
var n: integer;
procedure down(var n: integer); var a: array[1..20] of integer; i, j, s, p: integer; begin i : = 0; while n > 0 do begin i : = i + 1; a[i] : = n mod 10; n : = n div 10; end; p : = i; for i : = 1 to p - 1 do for j : = i + 1 to p do if a[i] < a[j] then begin s : = a[i]; a[i] : = a[j]; a[j] : = s; end; j : = 1; for i : = p downto 1 do begin s : = s + a[i] * j; j : = j * 10; end; n : = s; end;
Популярные вопросы