//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
for var i:=30 downto 10 do println(i);
end.
Var st: string;begin write('строка: '); readln(st); repeat delete(st,1,1); writeln(st); until length(st)<2;end.
Program exs;
var a, i, sum : integer;
begin
sum:= 0;
readln(a); {Считывание числа}
for i:= 1 to 4 do begin
sum:=sum + (a mod 10); {Находим остаток от деления на 10}
a:=a div 10; {Выкидываем найденную цифру из числа}
end;
writeln(sum);
end.
Ползунок.
...............................
<span> решить трех заданий (7,8,9). Написаны программы для компьютера</span>