<span>1)
var a:integer;
begin
write('введите число');
read(a);
if (a>1) then a:=a+1 else a:=a-2;
write(a);
end.
2)</span><span>var a,b:integer;
begin
readln(a,b);
if a*b<0 then writeln(-2*a*b)
else writeln(1.5*a*b);
end.
Думаю так.не судите если не так:(
Ну а блок-схему сами..</span>
Var a, b, c, d, s, k: integer;
begin
write('Введите k: '); readln(k);
a := k div 1000; {тысячи}
b := (k mod 1000) div 100; {сотни}
c := (k mod 100) div 10; {десятки}
d := k mod 10; {единицы}
s := d * 1000 + c * 100 + b * 10 + a;
writeln('k = ', k, #10, 's = ', s);
end.
Ручка
пастила
сарафан
самолёт
караван
картина
колокол
= = = = = = = =
В связи с вопросом nelle987, поясняю: здесь нет никакого алгоритма, это вообще не алгоритмическая задача по своей сути. Нужно просто мысленно разбить исходные слова на слоги, и увидеть из них новое слово. Никакой магии.
Если хотите подойти к задаче системно, то можно организовать поиск по словарю, но здесь слишком простой случай, чтобы заморачиваться с поиском.
<h3>PascalABC.NET 3.4.2, сборка 1826 от 07.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var x: int64;
Readln(x);
Format('{0:#0 000 00 0}', x).Println
end.
