1.истиное высказ.2.ложное.3.предложения которое не является выска.4.истинного высказывания со словами "неверное,что".
Uses crt;
var n,a,k,s:integer;
begin
readln(n);
a:=n;
repeat;
a:=n mod 10;
s:=s+a;
n:=n div 10;
if a>6 then inc(k);
until a=0;
writeln(s);
writeln(k);
end.
Ща все решу! Вжух и все готово!!!
а)455
б)283
в)<span>613.5625
</span>г)<span>73.375
</span>д)<span>221.875
</span><span>е)</span>332.625