// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
Writeln(ReadlnString('n=').Count(x->x='0'),' нулей');
end.
<u><em>Тестовое решение:</em></u>
n= 5350004533300045645600
8 нулей
#include <iostream>
using namespace std;
int MinDivisor (int n)
{
int i = 2, min_den = 1;
while (i <= n/2)
{
if (n % i == 0)
{
min_den = i;
break;
}
i++;
}
return min_den;
}
int main() {
int n, min;
cin >> n;
min = MinDivisor(n);
if (min == 1)
cout << n;
else
cout << min;
return 0;
}
Пример:
169
13
ДеревнИ, дорогИ. Окончание И
Локальные файлообменники обычно сделаны на FTP, потому что этот протокол был специально создан для передачи файлов произвольного размера. HTTP протокол передачи гипертекста, страниц HTML и других форматов, нередко используется для передачи файлов различных форматов
//Pascal ABC.NET 3.1 сборка 1219
Var
x,y,r:real;
k,i,xi,yi:integer;
begin
readln(x,y);
xi:=round(x-frac(x));
yi:=round(y-frac(y));
for i:=xi to yi do
begin
inc(k);
r:=r+power(i,3);
writeln(i);
end;
writeln('Count=',k);
writeln('Sum=',r);
end.
Пример ввода:
-1.8
2.8
Пример вывода:
Count=4
Sum=8