var
x, y, a, b, c: real;
t: integer;
begin
read(x);
t := Round(10 * x);
a := t div 100;
b := (t div 10) mod 10;
c := t mod 10;
y := c + b / 10 + a / 100;
Println(y);
end.
Или можно сократить число используемых переменных:
var
x: real;
t: integer;
begin
read(x);
t := Round(10 * x);
Println(t mod 10 + (t div 10 mod 10) / 10 + t div 100 / 100);
end.
Задание 1:
S= 15
i= -1
1)s=5 ; i=4
2)s=9; i=3
3)s=12 ; i=2
4)s=14 ; i=1
5)s=15 ; i=0
6)s=15 ; i= -1
задание 2:
с
"Имя" вроде не может быть названием программы,не?
<span>k:=a/2;
Но k у нас integer.Тип integer-целочисленный и не поддаётся операциям в ходе которых может получится не целое число.Деление прямой пример.</span>