//PascalABC.Net 3.1.0.1200
var
c: char;
begin
readln(c);
if c in ['0'..'9'] then
writeln(ord(c))
else
writeln(chr(ord(c) + 1), chr(ord(c) + 2));
if c in ['A'..'Z'] then
writeln(LowCase(c));
end.
К пиктограмме.
а) Тут копают
б) Осторожно, забор!
в) Лестница
г) Нельзя сюда!
д) Второстепенная дорога
е) Там тупик (забыла название)
ж) Место для солнцезащитных очков (Очень ярко! - не помню лол)
Это надо делать в Программе Ехел. Сейчас отправлю.
Ответ:
29₁₀ = 00011101₂
-29₁₀ = 10011101₂
Объяснение:
29₁₀ = 1*2⁰ + 0*2¹ + 1*2² + 1*2³ + 1*2⁴ = 11101₂
00011101₂ - добавляем слева нули до 8 знаков
10011101₂ - отрицательное ставим 1 в старший разряд
Размер массива не указан, поэтому в программе считаю его 100. Легко переделать под себя.
<h3>Код (Pascal)</h3>
var
a: array[1..100] of integer;
i, cnt: integer;
begin
for i := 1 to 100 do
a[i] := random(1001) + 1000;
for i := 1 to 100 do
if (a[i] div 10) mod 2 = 0 then cnt := cnt + 1;
writeln(cnt);
end.
--------------------------------------------------
Файл с решением прикреплён.