var
a:real;
begin
readln (a);
a:=trunc (a); {trunc - это такая функция (уже готовая в самой программе), которая находит целую часть числа}
writeln ('Целая часть числа а равна ',a)
end.
если я правильно понял смысл
Int main(){
int s, q;
cin >> s;
q = 0;
while (s > 0){
q++;
s/=10;
}
cout << q;
return 0;
}
128 цветов,пикселю требуется 7 бит
Sub abc()
Dim i As Integer, s As Integer
s = 0
For i = -5 To 10
s = s + i
Next i
MsgBox s
End Sub