ну если исходить из того, что китайская письменность основана на иероглифах, то ближе всего скорее древнеегипетская письменность, которая также основана на иероглифах. думаю так.
Ответ дал: Гость
var
a: [1..100] array of integer;
i,n,p: integer;
begin
readln(n);
for i: =1 to n do
begin
readln(a[i]);
p: =2;
while (p*p< =a[i]) do
begin
if p*p=a[i] then writeln (a[i],' полный квадрат')
p: =p+1;
end;
end;
end.
Ответ дал: Гость
номер 4, так как две собаки в этой части не допущены.
Ответ дал: Гость
как я понял тебе нужна программа которая просто выводит на экран нужный тебе текст
вот она
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.
зы: слова я пытался писать буквами, я не знаю просто: поддерживает твой паскаль буквы или нет..
Популярные вопросы