Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
сдслгсьсгаоашслсшлалсьсшаьсшьсщала
37720
Объяснение:
вёт тахой ётвёт
var
i,n,a: integer;
begin
readln(n);
for i: =1 to n do
read(a);
if (a mod 3=0)and(a mod 5> 0) then write(a,' ');
end;
writeln;
end.
как я понял тебе нужна программа которая просто выводит на экран нужный тебе текст
вот она
program ohotnik;
uses crt;
var i: integer;
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;
зы: слова я пытался писать буквами, я не знаю просто: поддерживает твой паскаль буквы или нет..
Популярные вопросы