Вода, лед и пар. Имеют одинаковый состав , но изменяются структуры строения.
===== PascalABC.NET =====
function sogl(c: char) :=
not (c.ToUpper in ('АЕЁИОУЫЭЮЯ'));
// проверка функции
begin
var s := 'ТестируемРусскийАлфавит';
foreach var c in s do
Print(sogl(c));
end.
На самом деле все это будет правильно работать лишь если функции давать исключительно русские буквы.
Вот тебе последовательность, через тире координата кузнечика после после выполнения команды:
Вправо на 7 -- 7
Влево на 5 -- 2
Вправо на 7 -- 9
Влево на 5 -- 4
Вправо на 7 -- 11
Влево на 5 -- 6
1024байта - 1024*8=8192 бит
1024 кбайта - 8192000 бит
1024 гбайта - 8192000000000 бит
var
i, n, k, max: <em>integer</em>;
begin
readln(n);
max := Integer.MinValue;
for i := 1 to n do
begin
readln(k);
if (k mod 4 = 0) then
max := System.Math.Max(max, k);
end;
writeln(max);
<span>end.</span>