/<u>/ PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadReal('Введите число:').ToString.ToWords('.');
if a.Length=2 then Writeln(a[0]=a[1])
else Writeln(False);
end.
<u>Примеры</u>
Введите число: 121.121
True
Введите число: 12.11999
False
Ответ:
program ideone;
uses SysUtils;
function WordsCount(s: string): integer;
var
i, count: Integer;
begin
count := 0;
for i := 1 to Length(s) do
begin
if (s[i] <> ' ') and ((i = 1) or (s[i-1] = ' '))
then inc(count);
end;
WordsCount := count;
end;
var
a: string;
count: Integer;
isUrgent : Integer;
cost: Double;
begin
writeln('Введите строку A: ');
read(a);
count := WordsCount(a);
writeln('Посылка срочная? Если да, введите 1, иначе 0: ');
read(isUrgent);
cost := count * 2;
if (isUrgent = 1) then cost := 1.2*cost;
writeln(Format('Стоимость посылки составляет %.2f рублей.', [cost]));
end.
Количество вершин:
1) 4
2) 6
3) 8
4) 5
Количество ребер:
1) 2
2) 4
3) 2
4) 2
Количество циклов:
-
-
-
-
Был в каталоге С:\Музыка\Хиты
1. Сначала опустился на один уровень вниз в каталог Ретро => С:\Музыка\Хиты\Ретро
2. Затем поднялся на один уровень вверх, проще говоря, вернулся назад в С:\Музыка\Хиты
3. Спустился на один уровень вниз в каталог Лучшие => С:\Музыка\Хиты\Лучшие и здесь нашел файл.
Полный путь - С:\Музыка\Хиты\Лучшие\Белые_розы.mp3