Program xxx;
var
i : integer;
begin
writeln('Введите двухзначное число...');
readln(i);
writeln('Ответ:', (i div 10)+(i mod 10));
end.
Можно привести в пример сборку шкафа,если я правильно поняла ,что ты подразумеваешь под схемой. Там есть инструкция,по которой можно собрать шкаф. Если описание нужно такое,то можно сделать так,как возможный вариант в жизни почти любого
*Недавно мы купили шкаф в Икее. В наборе шло много креплений и собственно части шкафа. Чтобы не переделывать потом несколько раз,мы сразу решили собирать с инструкцией. Иногда были трудности,но через некоторое время шкаф был готов.*
var
x, y: byte;
begin
readln(x);
repeat
if (x div 3 > 0) then
begin
write(3:2);
x -= 3;
end
else
if (x div 2 > 0) then
begin
write(2:2);
x -= 2;
end
else
if (x > 0) then
begin
write(1:2);
x -= 1;
end;
until (x = 0);
<span>end.</span>
Program e1;
var
x, y: real;
begin
writeln('Введите х');
readln(x);
if x < 5 then y := (4 * sqr(x) + 1) / (-5)
else y := 3 * sqr(x) - 2;
writeln('y=', y)
end.
--------------------------------------------
program e2;
var
x, y: real;
begin
writeln('Введите х');
readln(x);
if x > -4 then y := (5 * sqr(x) + 2) / (x + 4)
else y := 3 * sqr(x) + 7;
writeln('y=', y)
end.
У меня нет Турбо Паскаля, вставьте там в начале, как всегда пишете директиву uses Crt
Пойдем вечером в цирк, Вера
