25/2=12 (1) 12/2=6 (0) 6/2=3 (0)3/2=(1)(1)
25=11001
11001= 2^4+2^3+1=25
13/2=6 (1) 6/2=3 (0) 3/2=(1) (1)
13=1101
1101=2^3+2^2+1=13
Program qwe;
var A:longint;
s:byte;
begin
write('Введите число: ');
readln(A);
s := 0;
A := abs(A);
while A > 0 do
begin
if not odd(A) then
inc(s, A mod 10);
A := A div 10
end;
writeln('Сумма чётных цифр = ', s);
readln
<span>end</span>
Var
s:string;
n:integer;
begin
Write('Вводите: '); Readln(s);
n:=Length(s);
s:=Copy(s,n-2,3)+Copy(s,4,n-6)+Copy(s,1,3);
Writeln(s)
end.
**************************************************
var
s:string;
c:char;
i,n:integer;
begin
Write('Вводите: '); Readln(s);
n:=Length(s);
for i:=1 to 3 do begin
c:=s[i]; s[i]:=s[n-3+i]; s[n-3+i]:=c
end;
Writeln(s)
end.
Результат
Вводите: Информатика
икаорматИнф
Сумма,произведение и по отдельности единицы, десятки и сотни
program A1;
Var a, d, b, c,r,t:Integer;
begin
Write(' введите трех значное число ' ) ;Read(a);
d:=a div 100;
c:=a mod 100;
c:=c div 10;
b:=a mod 100;
b:=b mod 10;
t:=d+c+b;
r:=d*c*b;
WriteLn(' число единиц = ', b);
WriteLn(' число десятков = ', c);
WriteLn(' число сотый = ', d);
WriteLn(' сумма его цифр = ', t);
WriteLn(' произведение его цифр = ', r);
end.
Площадь и периметр
program f33;
Var a, b, P, S:Real;
begin
Write('а = '); Read(a);
Write('b = ') ;Read(b);
S:=a*b;
P:=(a+b)*2;
WriteLn('S = ', S);
WriteLn('P = ', P);
end.
21221
ну получается
(((5*2=10)-3=7)*2=14*2=28)-3=25