// PascalABC.NET 3.0, сборка 1076
const
nn=40; { максимально возможное количество учеников }
var
r:array[1..nn] of byte;
i,n:byte;
begin
Write('Количество учеников в классе: '); Read(n);
Writeln('Вводите через пробел или Enter рост');
for i:=1 to n do Read(r[i]);
{ собственно анализ введенных данных }
i:=1;
while i<n do
if r[i]<=r[i+1] then break
else Inc(i);
if i=n then Writeln('Порядок убывания роста соблюдается')
else Writeln('Порядок убывания роста не соблюдается')
end.
№148
1) столбик: Машина, Ложка, Компьютер, Книга, Телевизор,Платье, Дом.
2) столбик: Солнце, Воздух, Ветер, Почва, Гора, Река, Озеро, Снег, Дождь, Роса, Ураган.
3) столбик: Щука, Рысь, Индюк, Волк, Слон, Корова, Комар, Стрекоза, Петух, Овца, Карась, Человек, Бабочка, Утка, Страус, Лягушка, Муха, Муравей, Берёза, Осина, Ромашка, Апельсин, Помидор,
Вскипетить воду
положить. или. налить. заварку
залить. кепитком.
по желанию. добавить. сахар
они писали слова на русском но шрифт стоял английский "Rfrltkf&"- какдела? "Ltrf.ehjrb"-делаюуроки
запишем условие: i=4бит, N=?
решение: общее количество равновероятностных событий посчитаем по формуле N=2^i, N=2^4, N=16 это и есть ответ