Это слова Родина и Трибуна
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.
Ответ:
в) Вежливость
Объяснение:
Во всех отношениях с людьми нужна вежливость)
Рекордер — устройство, предназначенное для записи входящего сигнала на физический носитель.
Var a:array[1..11] of real;
t,i:integer;
begin
for i:=1 to 11 do
read(a[i]);
for i:=1 to 11 do
if a[i]>0 then begin t:=i; break; end;
if t<>0 then writeln(a[t])
else writeln('Not found');
<span>end.</span>