<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
begin
var s100:=Arr('','сто','двести','триста','четыреста','пятьсот',
'шестьсот','семьсот','восемьсот','девятьсот');
var s10:=Arr('','десять','двадцать','тридцать','сорок','пятьдесят',
'шестьдесят','семьдесят','восемьдесят','девяносто');
var s11:=Arr('','одиннадцать','двенадцать','тринадцать','четырнадцать',
'пятнадцать','шестнадцать','семнадцать','восемнадцать',
'девятнадцать');
var s1:=Arr('','один','два','три','четыре','пять','шесть',
'семь','восемь','девять');
var n:=ReadInteger('Укажите трехзначное натуральное число');
var s:=s100[n div 100];
var n10:=(n div 10) mod 10;
var n1:=n mod 10;
case n10 of
0:if n1>0 then s:=s+' '+s1[n1];
1:if n1=0 then s:=s+' '+s10[1]
else s:=s+' '+s11[n1];
else begin
s:=s+' '+s10[n10];
if n1>0 then s:=s+' '+s1[n1]
end
end;
Writeln(s)
end.
Ответ:
#include <iostream>
using namespace std;
int main()
{
unsigned long p, pp;
int F, n, i;
setlocale(LC_ALL, "russian");
cout << "Население = ";
cin >> p;
cout << "Прирост = ";
cin >> F;
cout << "n = ";
cin >> n;
i = 0;
pp = p;
while (pp < p * n) {
pp += (int) pp / F;
i++;
}
cout << "\nЧерез " << i << " лет";
}
<em>VAR</em>
<em> s: String;</em>
<em>BEGIN</em>
<em> s := Chr(66) + Chr(69) + Chr(71) + Chr(73) + Chr(78);</em>
<em> Write(s);</em>
<em>END.</em>
Какое именно USB есть микро оно сейчас очень популярно в использование в телефоне в виде зарядки и соединения для компьютера, но если говорить про обычный USB то что про него сказать очень удобная штука, ломается редко, да можно сказать никогда, да USB сейчас везде есть, есть даже разетки виде USB, это очень удобно, не нужен блок питая, так как он уже встроен. USB очень удобен, и прочный, хорошая штука.