1) 11 и 60 в восьмиричной
2) 5 и 2А в шестнадцатиричной
3) 46(8) или 26(16) и 142(8) и 62(16)
Program ex4;
Var
m,n:longint;
S:integer;
Begin
WriteLn('Введите целое число не равное 0');
ReadLn(n);
m:=n;
S:=0;
While m<>0 do
Begin
S:=S+(m mod 10);
m:=m div 10;
End;
WriteLn('Сумма цифр равна: ',S);
End.
Program ex4;
Var
m,n:longint;
S:integer;
Begin
WriteLn('Введите целое число не равное 0');
ReadLn(n);
m:=n;
S:=0;
While m<>0 do
Begin
S:=m mod 10;
m:=m div 10;
End;
WriteLn('Первая цифра числа: ',S);
End.
Всмысле?
ну вид такой будет:
program z1;
var i:integer;
begin
for i:=1 to 5 do
<КАКАЯ-ТО ОПЕРАЦИЯ>
END.
Program qq;
uses crt;
var
x1,x2,y1,y2,a,b,S,P:integer;
Begin
Readln(x1,y1,x2,y2);
a:=x2-x1;
b:=y2-y1;
S:=a*b;
P:=(a+b)*2;
Writeln(S,P);
Readkey;
End.