Корень раве аб или бс в квадрате.переменные описаны целым типом данных.
1)Cin>>a
2)a/=10
3)b=a%10
4)c=2%10
<span>5)cout<<(a/10+b+c)ит</span>
uses
SysUtils;
var
n,m,i:integer;
begin
readln(n);
m:=0;
for i := 1 to n-1 do
if m > n then break else
if (n mod i = 0) then m:=m+i;
if m=n then writeln('Yes') else
writeln('No');
end.
Ответы на фотографии, удачи :)
В Pascal:
const n=100;
var a: array[1..n] of integer;s,i:integer;
begin
s:=0;
for i:=1 to n do begin
writeln('Введите', i, '-й элемент массива');
readln (a[i]);
end;
for i:=1 to n do begin
s:=a[i]+s;
end;
write('Сумма элементов массива = ',s);
<span>end.</span>