А)паскаль программа для создавания программ)0
Б 47 считаешь пробелы и буквы
Ответ:
#include <iostream>
#include <algorithm>
#include <cmath>
int gcd(int a, int b){
a = std::abs(a);
b = std::abs(b);
while(b > 0){
a %= b;
std::swap(a, b);
}
return a;
}
int main(){
int a, b;
std::cin >> a >> b;
int g = gcd(a, b);
std::cout << g << std::endl;
return 0;
}
Решение показано в прилагаемом файле.
<em>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
1.To(ReadInteger('n=')).Aggregate(BigInteger(1),(x,y)->x*y*y).Println
end.
<u>Пример</u>
n= 100
8709782489089480079416590161944485865569720643940840134215932536243379996346583325877967096332754920644690380762219607476364289411435920190573960677507881394607489905331729758013432992987184764607375889434313483382966801515156280854162691766195737493173453603519594496000000000000000000000000000000000000000000000000