Оригинал-живой, имеет глаза, уши, рот, нос , руки, ноги, тело, двигается.
Кукла- неживая, имеет глаза, уши, рот, нос , руки, ноги, тело.
общие: имеет глаза, уши, рот, нос , руки, ноги, тело
<span>REM func</span>
<span>INPUT a,b,c</span>
<span>IF (a^2-b)*(c-b^2)<>0 THEN</span>
<span>D=(a^2-b)*(c-b^2)/3</span>
<span>PRINT D</span>
<span>ELSE</span>
<span>PRINT "Реш.нет"</span>
<span>END IF</span>
<span>End</span>
<u>PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
var a:array of real;
a:=SeqRandom(n,-99,99).Select(t->real(t)).ToArray; a.Println; Writeln;
a.Where(t->Trunc(t) mod 3 <>0).Println
end.
Uses crt;
var i: shortint; sr: real;
begin
clrscr;
for i:=-6 to 33 do
sr:=sr+i;
sr:=sr/40;
writeln('среднее арифметическое = ',sr:4:1);
<span>end.</span>
