Существенными будем называть свойства перечисление которых позволяет без ошибки определить обьект.Все существенные свойства обьекта составляют содержание понятия.Деление понятия -это мысленное свойство перечисленных видовых понятий,входящих в родовое понятие.
Стол-имеет ножки,имеет столешницу,черного матового цвета,большой и высокий.Не забудьте поставить СПАСИБО.
<em>// PascalABC.NET 3.3, сборка 1561 от 02.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<em>1)</em>
begin
var (a,b):=ReadInteger2('Введите границы диапазона:');
var Всего:=b-a+1; // количество целых чисел в диапазоне
var Четных,Нечетных:integer;
if a.IsOdd then begin Четных:=Всего div 2; Нечетных:=Всего-Четных end
else begin Нечетных:=Всего div 2; Четных:=Всего-Нечетных end; // четное a
Writeln('Нечетных- ',Нечетных,', четных- ',Четных)
end.
<u>Пример</u>
Введите границы диапазона: -4 4
Нечетных- 4, четных- 5
<em>2)</em>
begin
var (n,a,b):=ReadInteger3('Введите n,a,b:');
SeqRandom(n,a,b).Println
end.
<u>Пример</u>
Введите n,a,b: 15 -10 35
19 33 -10 4 5 -10 10 21 17 21 14 21 24 23 18
Пиковая дама и Пушкин
Эверест выше Альбруса
Александр выше Анны
На взять и две монеты положить на весы ( любые) дальше 2 варианта: либо две монеты равны в весе, тогда фальшивая третья, либо одна будет легче и она будет фальшивой
Вот,только не REAPIT, а REPEAT
program ex1;
var a,z,l:integer;
begin
randomize;
repeat;
a:=random(11);
z:=z+a;
l:=l+1;
until l=10;
write('ответ:',z);
end.