Ответ:
program abc;
var m,o,k:int64;
begin
readLn(m);
o:=2000000000;
for i:integer:=trunc(sqrt(m))+1 downto 1 do
if (o>m div sqr(i)) and (m mod sqr(i) = 0) then
begin
o:=m div sqr(i);
k:=sqr(i);
end;
writeLn(k);
end.
Объяснение:
<h2>Код</h2>
#include <iostream>
using namespace std;
int main(){
setlocale(LC_ALL, "Russian");
string s = "+++++_-_-_-.*.*.*.*";
unsigned int plusValue = 0, minusValue = 0, starValue = 0;
for(int i = 0; i < s.length(); i++){
if(s[i] == '+'){
plusValue = plusValue + 1;
}
else if(s[i] == '-'){
minusValue = minusValue + 1;
}
else if(s[i] == '*'){
starValue = starValue + 1;
}
}
cout << "Всего " <<
plusValue << " плюсов, " <<
minusValue << " минусов и " <<
starValue << " звёздочек.";
return 0;
}
<h2>Проверка</h2>
Всего 5 плюсов, 3 минусов и 4 звёздочек.
4 гб
4×1024=4096мб
4096мб-34мб=4062мб залишається пам'яиі на флешці петі
34мб на флешці колі
разом 4062+34=4096мб=4гб
Четных чисел 3: 2,4,6. Одно из них можно выбрать 3 -мя способами. Из оставшихся 6 можно составить 6! = 720 перестановок, следовательно, всего перестановок - 720*3 = 2160
var s : string; symb : char; i : longint;
begin
readln(s);
readln(symb);
if pos(symb,s)=0 then writeln('В этом слове нет этого символа')
else begin
i:=0;
while pos(symb,s)<>0 do begin
write(pos(symb,s)+i,' ');
i:=i+1;
Delete(s,pos(symb,s),1);
end;
end;
writeln;
writeln(i);
end.