<span>нахождения лишнего, выполнения вычислений, раскраска, решения задачи
</span>
раскраска
375байт*8=3000 бит Формула:N=2^i
3000/500=6 бит за 1 символ
N=2^6 N=64
Ответ:64 символа в алфавите.
Var
i, sum : integer;
begin
sum := 0;
for i := 1 to 100 do sum := sum + i;
writeln (sum);
end.
C=a+b
(START) -> / ввод a,b / -> | a+b | -> / вывод c / -> (STOP) - линейный
В <span>разветвляющимся алгоритме ты меняешь </span>третий этап( | a+b | меняешь на
а+b>0) пишешь новое выражение в "ромбике" и отводишь от него стрелки: слева "нет", справа "да", под стрелкой "да" - пишешь "/ вывод c / -> (STOP) ", а из-под "нет" проводишь стрелку вниз и пишешь - нет решений (Н.Р.)
// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
var cm:array[1..12] of string:=
('января','февраля','марта','апреля','мая','июня',
'июля','августа','сентября','октября','ноября','декабря');
var dmy:=ReadlnString('Дата в формате ДД.ММ.ГГГГ:').ToWords('.');
Writeln(dmy[0]+' '+cm[dmy[1].ToInteger]+' '+dmy[2]+' года')
end.
<u><em>Тестовое решение</em></u>
Дата в формате ДД.ММ.ГГГГ: 13.07.2016
13 июля 2016 года