<em>var g,s:string;
</em>
<em>begin
</em>
<em>readln(g);
</em>
<em>readln(s);
</em>
<em>writeln('Столица государства ',g,' - ','город ', s);
</em>
<em>end.
</em>
#include <iostream>
bool isSelfDivisible(int n) {
int k = n;
while (k > 0) {
if (k % 10 == 0 || n % (k % 10) != 0)
return false;
k /= 10;
}
return true;
}
int main() {
int L, K;
std::cin >> L >> K;
for (int i = L; i <= K; i++)
if (isSelfDivisible(i))
std::cout << i << std::endl;
return 0;
}
Пример ввода:
122 128
Пример вывода:
122
124
126
128
{В данном случае не имеет смысла возиться с числами, куда лучше подходят строки}
//Pascal ABC.NET v3.1 сборка 1172
Var
s,c:string;
begin
readln(s);
c:=s[length(s)-1]+s[length(s)];
delete(s,length(s)-1,2);
writeln(s,' руб. ',c,' коп.');
end.
Пример ввода:
8705553535
Пример вывода:
87055535 руб. 35 коп.