Ответ:
513:8=64(1 остаток)
64:8=8(0 остаток)
8:8=1(0 остаток)
1:8=0(1 остаток)
получаем в обратном порядке от деления остатки 1001, т.е. 513(10)=1001(8)
Объяснение:
Добрая-хорошая,гневная-вспыльчивая.
var sum,n:int64;
begin
write('Vvedite chislo: ');
readln(n);
while(n>0) do begin
sum:=sum+(n mod 10);
n:=n div 10;
end;
writeln(sum);
readln;
end.
Ответ:Смотря в какой программе, если в paint, то сделать ровную линию. Если в фотошопе, то сделать ровную картинку!
Var i : Integer;
Begin
For i:=100 to 999 do
If i=(sqr(i) mod 1000) then Writeln(i,' * ',i,' = ',sqr(i));
end.
Результат:
376 * 376 = 141376
625 * 625 = 390625