3 5 7 9 11 13 15 17 19 21 23 25
Procedure SolveLinear;
var
k, x, b, y: real;
begin
write('k=');
readln(k);
write('x=');
readln(x);
write('b=');
readln(b);
y := k * x + b;
writeln('y=kx+b=', y);
end;
Var s,s1:string; p:integer;
begin
writeln('Введите строку:');
readln(s);
s1:=s+' ';
while s1<>'' do
begin
p:=pos(' ',s1);
if (p>1)and(s1[p-1]='я') then writeln(copy(s1,1,p-1));
delete(s1,1,p);
end;
<span>end.</span>
Наглядным представлением информации, обеспечивающее лёгкость ее восприятия, является модель.
Например, невозможно было бы представить планету Землю из-за её громадных размеров, если бы не была создана её модель - глобус.