Задача 5. У цій задачі мова про морозиво. У кафе продають морозиво по 3 і по 5 кульок. Визначити, чи можливо купити К кульок морозива? Наприклад, купити 6 кульок можна, придбавши їх 3+3 7 кульок - ні
8=5+3 9=3+3+3 10=5+5 11 = 5+3+3 12 = 3+3+3+3 13 = 5+5+3 14 = 5+3+3+3
15 = 5+5+5 16 = 5+5+3+3 17 = 5+3+3+3+3 і т.д.
Спробуй побачити закономірність і визначити, яку кількість кульок купити неможливо.
Var
B:byte;
S,Z:string;
Begin
if A = 0 then Write('Ноль')
else
Begin
if A < 0 then
Begin
Z:='минус ';
A:=-A;
End;
B:=A mod 100;
if B div 10 = 1 then
Case B mod 10 of
0:S:='десять';
1:S:='одиннадцать';
2:S:='двенадцать';
3:S:='тринадцать';
4:S:='четырнадцать';
5:S:='пятнадцать';
6:S:='шестнадцать';
7:S:='семнадцать';
8:S:='восемнадцать';
9:S:='девятнадцать';
End
else
Begin
Case B mod 10 of
1:S:='один';
2:S:='два';
3:S:='три';
4:S:='четыре';
5:S:='пять';
6:S:='шесть';
7:S:='семь';
8:S:='восемь';
9:S:='девять';
End;
Case B div 10 of
2:S:='двадцать '+S;
3:S:='тридцать '+S;
4:S:='сорок '+S;
5:S:='пятьдесят '+S;
6:S:='шестьдесят '+S;
7:S:='семьдесят '+S;
8:S:='восемьдесят '+S;
9:S:='девяносто '+S;
End;
End;
Case (A div 100) mod 10 of
1:S:='сто '+S;
2:S:='двести '+S;
3:S:='триста '+S;
4:S:='четыреста '+S;
5:S:='пятьсот '+S;
6:S:='шестьсот '+S;
7:S:='семьсот '+S;
8:S:='восеьсот '+S;
9:S:='девятьсот '+S;
End;
WriteLn(Z+S);
End;
End;
Var
A:longint;
Begin
Write('Введите целое число: ');ReadLn(A);
P(A);
End.