Буква и цифра и всё
знак-- буква--&>цифра
После установки на Toshiba Satellite 2450-S203 Windows 7 возникло несколько проблем.
Сейчас более менее все поставил. Не работает Card Reader. Драйвер встал нормально но устройство в диспетчере отмечено желтым знаком и написано "Недостаточно свободных ресурсов для работы данного устройства. (Код 12)
<span>Чтобы использовать это устройство, нужно отключить одно из прочих устройств в системе". Устройство естественно не работает. Com и LPT отключал, непомогло.</span>
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
var a:=ReadlnString.Sorted.TakeLast(2).ToArray;
Writeln(StrToInt(a[0])+StrToInt(a[1]));
end.
<u><em>Тестовое решение:</em></u>
324576854532
15
Что делать???????????????????????????????????????
Var M: array[1..15] of integer;
i, count: integer;
begin
for i := 1 to 15 do begin
M[i] := random(15);
write(M[i]:3);
if(M[i] mod 2 = 0) then inc(count);
end;
writeln(#10, 'Кол-во четных элементов: ', count);
<span>end.</span>