Pascal ABC
Var
A:integer;
Begin
Write('A = ');Read(A);
Write(A div 10,'+',A mod 10,' = ',(A div 10)+(A mod 10))
End.
<span>Паскаль:
Program P;
uses crt;
var n,i:integer;
Begin
clrscr;
write(' N=');
readln(n);
i:=1;
while i<=n do
begin
i:=i+1;
if n mod i=0 then
begin
writeln('Наименьший делитель=',i);
end;
end;
end<span>.</span></span>
Письменный документ-текстовый документ, информация которого зафиксирована любым типом письма.