Program n1;
var k,m,n: integer;
begin
readln(k,m,n);
if (k mod 2<>0) and (m mod 2<>0) and (n mod 2<>0) then write('да') else write('нет');
end.
Program n_1;
var n,count:integer;
Begin
Write('введите натуральное полож.число n -');
read(n);
count:=0;
While n>0 do
Begin
n:=n div 10;
count:=count+1;
end;
write(count);
End.
Попробуй эту программу
1-5
2-5
3-32
4-6
5-0
6-бесконечно
7-не исполниться
8-3
9-бесконечно
по моему так
<span>Random это функция</span><span> возвращающая случайные числа от 1 до указанного диапазона, но отрицательных чисел тут нет, так что воспользуемся приемом:</span>
A: = Random(101)-50; {Числа от -50 до 50}
B: = Random(101)-200; {от -100 до 100}
<span>А теперь выведи на экран все положительные, а затем отрицательные элементы - проверяй на больше/меньше нуля!</span>
Вавило́нская ба́шня — легендарная башня, которой посвящено библейское предание, изложенное в 11 главе книги Бытие. Согласно этому преданию, после Всемирного потопа человечество было представлено одним народом, говорившим на одном языке. С востока люди пришли на землю Сеннаар (в нижнем течении Тигра и Евфрата), где решили построить город, названный Вавилоном, и башню до небес, чтобы «сделать себе имя». Строительство башни было прервано Богом, который создал новые языки для разных людей, из-за чего они перестали понимать друг друга, не могли продолжать строительство города и башни и рассеялись по всей земле. Таким образом, история о Вавилонской башне объясняет появление различных языков после Всемирного потопа.