Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
как я понял тебе нужна программа которая просто выводит на экран нужный тебе текст
вот она
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.
зы: слова я пытался писать буквами, я не знаю просто: поддерживает твой паскаль буквы или нет..
крестьянин должен переправить волка и капусту с собой.а козу надо кинуть
на другой берег.
program w7w7;
var a: real;
readln (a);
if a< 0 then writeln ('otritsatelnoe chislo');
if a> 0 then writeln ('pologitelnoe chislo');
1) присвоения : =2)343,5 3) 1a=2 b=5var a,x,x1,x2,x3: integer; begin read(a); writeln('4. s=',4*a); read(x); x3: =x mod 10; x1: =x div 10; writeln('5. x=',x3*100+x1); end.
Популярные вопросы