81920,5120,175921860444160,128849018880
program z1;
var
s,w:integer;
begin
writeln('Введите число зубов Кузьки');
readln(s);
writeln('Введите число зубов бабы Дуси');
readln(w);
if s>w then writeln('У Кузьки зубов больше') else writeln('У бабы Дуси зубов больше')
end.
Подробнее - на Znanija.com - znanija.com/task/30754761#readmore
Uses crt;
const
n = 10;
var
a,b : array[1..n] of integer;
i,j : integer;
begin
randomize;
i := 0;
j := 0;
for i := 1 to n do
begin
a[i] := random(21)-10;
write(a[i],' ');
end;
writeln;
for i := 1 to n do
if (a[i] < 0) and (a[i] mod 2 = 0) then
begin
j := j+1;
b[j] := a[i];
end;
for i := 1 to j do
writeln(b[i]);
readln;
end.
1- 10тичная
2-16тиричная
3-двоичная
В результате выполнения твоей программы результатом будет являться 30