Var a,b,c,g:integer;
Begin
readln (a);
b:=a mod 10;
a:= a div 10;
c:= a mod 10;
a:= a div 10;
g:= a mod 10;
write (b+c+g);
end.
Program p1;var n:integer;begin Writeln ('Введите число');Readln (n);if n>0 Then a:=(n*3) and (n mod 2=0) Else; Writeln (n);Readln;End.
не точно нужно дополнить,но что-то типо этого
var a:Integer;
begin
readln( a );
write( (a div 1000) * ((a div 100) mod 10) + ((a div 10) mod 10) * (a mod 10) );
end.
Пояснение:
a - 4-значное число, тогда:
a div 1000 - первая цифра числа.
(a div 100) mod 10 - вторая цифра числа.
(a div 10) mod 10 - третья цифра числа.
a mod 10 - четвёртая цифра числа.
a=float(input('input: '))
b=0
while a%1!=0:
a=a*10
while a>0:
b=b*10+a%10
a=a//10
print(b)
1 Мб=1000000 байт
0,5 Мб=1000000\2=500000 байт
1 байт=8 бит
512\8=64 байт
1 Гб=1024*1024 Кб
2048 Кб=2048\1048576=0,001953125 Гб
2 байт=2*8=16 бит
1 Кб=1000 байт
1000000 байт=1000000\1000=1000 Кб