Решение основано на кодовой таблице ASCII (Windows-1251)
Если код символа от 48 до 57 и четный, то его выводим.
Читаем тут:
<span>https://goo.gl/kLRJrE</span>
http://delphi.scps.ru/string/str5122.htm
http://delphi.scps.ru/math/math5604.htm
Ответ:
Объяснение:арточки мистера Фокса У мистера Фокса есть карточки, на каждой стороне которых нарисована или машина или какой-то зверь. Карточек, на которых есть животное (хотя бы с одной стороны) — десять, карточек, на которых есть машина (хотя бы с одной стороны) тринадцать, карточек, где на одной стороне машина, а на другой – зверь, 5. Сколько карточек, у которых на обоих сторонах объекты одного
2) 66150 * 8= 1 * 11025 * 8 * t
t = 6 сек
4) 10 * 2(в 23 степени) = 2 * 22050 * 32 * t
t = 60 сек
Не получишь. Во-первых, не знаю, законно или нет, но у тебя нет логического выражения в условной конструкции(if).
Во-вторых, опять же, не знаю, если ли в твоем языке функция swap(), которое меняет содержимое, но я бы сделал так:
temp := x[i]; //объяви сначала дополнительную переменную
x[i] = y[i];
y[i] = temp;
Ибо, если судить по твоему коду, ты присваиваешь переменной X значение переменной Y(получается, что теперь X = Y), а затем присваиваешь переменной Y значение переменной X(хотя они уже равны).
Wde не работает, так что не проверял..
var n,x,s,i:integer;
begin
readln(n); // считываем n
for i:= 1 to n do begin
readln(x); // читаем одно из n чисел
s:=s+x; // добавляем к сумме
end;
writeln(s);
end.