<em>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
if Abs(n).Between(100,999) then begin
Writeln('Число трехзначное');
if n.IsOdd then Writeln('Число нечетное')
else Writeln('Число четное');
if n div 100 = n mod 10 then Writeln('Его первая и последняя цифры равны')
else Writeln('Его первая и последняя цифры не равны')
end
else Writeln('Число не трехзначное')
end.
<u>Примеры</u>
n= 452
Число трехзначное
Число четное
Его первая и последняя цифры не равны
n= 313
Число трехзначное
Число нечетное
Его первая и последняя цифры равны
n= 18
Число не трехзначное
Общее количество возможных вариантов = 11 (на первой остановке может выйти 0, 1, 2, ... или 10 пассажиров).
Искомая ёмкость = log(2)11 ≈ 3,46
//PascalABC.NET
//Версия 3.3.5, сборка 1650
begin
writeln('массив: ');
var a:=MatrRandom(6,6,-100,100).Println;
write('сумма 1 строки: ',a.Row(0).Sum);
end.
ну смотри тут не так все сложно
у тебя есть формула N = 2 ^ i - то есть 2 в степени i
подставляешь в каждой строчке значение N (в первом столбце)
и решаешь:
8 = 2 ^ i - думаешь так: в какой степени должна быть 2 что бы получилось 8 ?!
ответ: в 2 ^ 3 (потому что 2 * 2 * 2 = 8)
и так далее:
32 = 2 ^ 5 (потому что 2 * 2 * 2 * 2 * 2 = 32)
64 = 2 ^ 6 (потому что 2 * 2 * 2 * 2 * 2 * 2 = 64)
128 = 2 ^ 7
256 = 2 ^ 8
понял ?!)
София-Соня-Софья. Скорее всего, так. с:
