предлагаю решение на Паскале
var n: integer;
begin
read (n);
if (n mod 5)=0 then n:=n*4
else
n:=n-25;
writeln ('n=',n);
end.
Корень раве аб или бс в квадрате.переменные описаны целым типом данных.
1)Cin>>a
2)a/=10
3)b=a\%10
4)c=2\%10
<span>5)cout<<(a/10+b+c)ит</span>
В библиотеку надо ходить а в интернете не надо двигаться а надо сидеть
<span>Один бит, один символ. </span>
<span>1200 бит/с 1200 символов/с </span>
<span>и т.д. </span>
Program ex1;
var a,sum,k:integer;
sr:real
begin
do
begin
writeln("Введите число");
readln(a);
sum:=sum+a;
k:=k+1;
sr:=sum/k;
end;
while (sr<>10);
writrln("Программа выполнено успешно!");
end.