<span>//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)
1)
begin
var a:=ReadInteger('Число -> ');
var b:integer;
while a>0 do
begin
b:=b*10+a mod 10;
a:=a div 10;
end;
writeln(b);
<span>end.
2)
begin
var a:=ReadInteger('Число -> ');
var s:integer;
while a>0 do
begin
s+=1;
a:=a div 10;
end;
writeln('Количество:',s);
<span>end.
3)
begin
var a:=ReadInteger('Число -> ');
var s:=0;
var p:=1;
while a>0 do
begin
s+=a mod 10;
p*=a mod 10;
a:=a div 10;
end;
writeln('Сумма:',s);
writeln('Произведение:',p);
end.
4)
begin
var a:=ReadInteger('Число -> ');
var b:=ReadInteger('Цифра->');
var p:=0;
while a>0 do
begin
if b=a mod 10 then p+=1;
a:=a div 10;
end;
writeln('Количество',b ,':',p);
end.
</span></span></span>
begin
var a := ReadSeqIntegerWhile(x -> x <> 0).ToArray;
a.Where((el, ind)-> ind mod 3 = 0).Sum.Println;
end.
30048=3•10000 0•1000 0•100 4•10 8•1
97510=9•10000 7•1000 5•100 1•10 0•1
выделить мышкой, либо нажатием ctrl+a
Var x,y:integer;beginread(x,y);if x mod y = 0 then writeln('Без остатка')else writeln('С остатком');end.