Строка вводится с клавиатуры(максимум 99 символов). Первое слово должно быть с маленькой буквы или первая и последняя буквы этого слова не должны совпадать(иначе такое слово как Test не засчитается). Также будет засчитываться одна буква(abc d efg, буква d подходит, так как она и первая и последняя)
var
i,m,n: longint;
begin
write('Введите через пробел границы интервала: ');
readln(m,n);
for i:=m to n do
writeln(i,' ',i*i,' ',i*i*i);
end.
//PascalABC.NET
//Версия 3.3, сборка 1627
begin
write(max(ReadInteger,ReadInteger));
end.
11*1024*8[bit]/11264 = 8 бит на символ
значит всего возможных символов 2^8 = 256
Var n:integer;
a:array[1..27] of string[15]=
('один','два','три','четыре','пять','шесть','семь','восемь','девять',
'десять','одиннадцать','двенадцать','тринадцать','четырнадцать',
'пятнадцать','шестнадцать','семнадцать','восемнадцать','девятнадцать',
'двадцать','тридцать','сорок','пятьдесят','шестьдесят','семьдесят',
'восемьдесят','девяносто');
begin
write('N (1..99) = ');
readln(N);
if (n>=1)and(n<=19)
then writeln(a[n])
else begin
write(a[n div 10 + 18]);
if n mod 10 <> 0 then write(' ',a[n mod 10]);
writeln;
end;
end.
Пример:
N (1..99) = 46
сорок шесть
