<em>// PascalABC.NET 3.2, сборка 1425 от 22.04.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString('Вводите:');
for var i:=1 to s.Length do s[:i+1].Println;
Writeln;
for var i:=s.Length downto 1 do s[:i+1].Println;
end.
<u>Пример</u>
Вводите: слово
с
сл
сло
слов
слово
слово
слов
сло
сл
с
program summa;
var a,b,c,d,s:integer;
begin
write('Введите первое число: ');
readln(a);
write('Введите второе число: ');
readln(b);
write('Введите третье число: ');
readln(c);
write('Введите четвертое число: ');
readln(d);
s:=a+b+c+d;
write('Сумма равна: ',s);
end.
1 - Д
2 - В
3 - Б
4 - Г
5 - А
program raf105;
var
a,i,j,s: integer;
f,st: string;
inA,inB: boolean;
begin
readln(a);
readln(f);
i:=1;
while i < length(f)-1 do
begin
st:= f[i] + f[i+1];
inA:= False;
inB:= False;
for j:=1 to length(st)-1 do
begin
if st[j] = 'a' then inA:= True;
if st[j] = 'b' then inB:= True;
end;
if (not inA) or (not inB) then
if st = 'bb' then
f[i+1]:= 'a'
else
f[i+1]:= 'b';
s:= s+1;
i+= 2;
end;
writeln(s);
for i:=1 to length(f)-1 do
write(f[i],' ');
end.
<h3>PascalABC</h3>
0,131 (10) = <span>0.03114 (5).
21,8 (10) = </span>210.2101 (3).<span>
104,33 (10) = </span><span>404.1311 (5).</span>