//Pascal ABC.NET 3.1 сборка 1219
Var
s:string;
n:integer;
begin
readln(s);
readln(n);
var ars:=s.Split;
foreach var i in ars do
if length(i)=n then writeln(i);
end.
<span>Пример ввода:
</span>Ехал грека через реку видит грека в реке рак
5
Пример вывода:
грека
через
видит
грека
Var
x, y: real;
begin
write('x: ');
readln(x);
write('y: ');
readln(y);
if ((x >= -6) and (x <= -1)) and ((y <= 7) and (y >= 2)) or (((x <= -3) and (x >= -6)) and ((y >= -3) and (y <= 2)))
then writeln('Точка принадлежит закрашенной области')
else writeln('Точка не принадлежит закрашенной области');
end.
//PascalABC.NET 3.0
begin
var a := ReadReal('a =');
var b := ReadReal('b =');
var c := ReadReal('c =');
b -= c;
if (a = 0) and (b = 0) then writeln('Уравнение имеет бесконченое множество корней')
else if a = 0 then writeln('Уравнение не имеет корней')
else writeln('Уравнение имеет один корень: ', -b / a);
<span>end.</span>
Модель является результатом процесса формализации.
Модель может иметь ту же форму, цвет, тот же элементный состав, что и моделируемый объект.
Модель обладает не всеми, а только некоторыми свойствами, которые может реальный объект.
Звуковые излучители такие как радио магнитофон