Ответ:
program Test;
var
n, t: Integer;
b: Boolean;
begin
Write ('Введите трехзначное число: ');
ReadLn (n);
if (n >= 100) and (n <= 999) then begin
if (n mod 10) mod 2 = 0 then
WriteLn ('четная')
else
WriteLn ('не четная');
end else
WriteLn (n, ' - не трехзначное');
ReadLn;
end.
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadArrReal(8);
a[::-1].Println
end.
В виде таблицы не умею вот паскаль.
Program v;
var x, y:integer;
begin
for x:= -2 to 2 do y=x*(sqr(x))-sqr(x)+2*sqrt(x);
writeln(x,y);
end.
1)Вообще можно и с 1 раза достать, но 100% вероятность будет только после того, как вытащишь все черные, то есть на 4 раз
2) Аналогично первой. 6 шаров.
3)Новорожденные дети тоже родственники
4)Делим кучу на 3 равные части, 2 из них на весы. Если их вес равен, но фальшивая в той куче, что осталась, если нет - то в более тяжелой. Берем кучу с фальшивой и возвращяемся к 1 шагу. Найти получится за 3 взвешивания