Var a: array[1..7] of real;
k, n: integer;
begin
readln(k, n);
for i:=1 to 7 do begin
read(a[i]);
if a[i]<>0 then if a[i]>0 then a[i]:=a[i]-a[k] else a[i]:=a[i]-a[n];
write(a[i], ' ');
Uses crt;
var s,i,x : integer;
begin
Read(x);
For i:=1 to 5 do begin
s:=s + (x mod 10);
x:=x div 10;
end;
Write (s);
end.
Язык - ПаскальABC
Если хочешь можешь еще сделать проверку на пятизначное число.
Компьютерные вирусы<span> – </span>программы<span>, которые создают программисты </span><span>специально для нанесения ущерба пользователям ПК.</span>
Место цифры в записи числа в позиционной системе счисления называется - <span>разряд.</span>
1. b.
2. c.
3. c.
4. b.
<span>А что с 5-м делать надо, не понял?</span>