#include <locale>
#include <iostream>
#include <cstdlib>
using namespace std;
int main(int argc, char argv[]) {
setlocale(LC_ALL, "Russian");
long long int a;
int i;
cout << "Введите число" << endl;
cin >> a;
if (a <= 1) {
cout << "Ошибка ввода" << endl;
return 1;
}
if (a % 2 == 0) {
cout << "Наибольший делитель: " << a / 2 << endl;
}
else {
for (i = a / 2; i > 1 && a % i; --i);
if (i == 1)
cout << "Наибольший делитель: " << i << endl;
else {
i = a / 2;
while (a % i != 0)
--i;
cout << "Наибольший делитель: " << i << endl;
}
}
return 0;
}
program Project1;
var
S : String;
K, Num1, Num2 : Integer;
begin
repeat
Writeln('Задайте целое число:');
Readln(K);
S := 'Мы собрали ' + IntToStr(K) + ' ';
Num1 := K mod 10;
K := K div 10;
Num2 := K mod 10;
case Num1 of
1 :
begin
if Num2 = 1 then S := S + 'грибов'
else S := S + 'гриб';
end;
2..4 :
begin
if Num2 = 1 then S := S + 'грибов'
else S := S + 'гриба';
end;
else
S := S + 'грибов';
end;
S := S + ' в лесу.';
Writeln('Результат:');
Writeln(S);
Writeln('Повторить - Enter. Выход - любой символ + Enter.');
Readln(S);
until S <> '';
end
