program abc;
var a,b,c,s: integer;
begin
s:=0;
writeln ('Введите двузначное число');
readln(a);
b:=a div 10;
c:= a mod 10;
s:= b + c;
writeln ('Сумма цифр вашего числа = ',s);
end.
(Программа Паскаль )
var f : integer;
begin
readln (f);
if (f < 0) then writeln (-3)
else writeln (sqrt (f));
end.
uses crt;
var a:integer;
begin
write('Введите число: ');
readln(a);
if (a mod 13)=0 then write('Число делится без остатка на 13') else write('Число не делится без остатка на 13');
writeln;
if (a mod 10)=7 then write('Число оканчивается на цифру 7') else write('Число не оканчивается на цифру 7');
end.
Если нужно выполнять программу из-под программной оболочки, удали первую строку.
I=16;
16₁₀=x₁₆
x₁₆=10₁₆
16₁₀=20₈