Если ты сдаешь эту задачу на сайт acmu.ru или acmp.ru:
var a, b: longint;
begin
assign(input, 'input.txt'); reset(input);
assign(output, 'output.txt'); rewrite(output);
read(a, b);
write(b - 1, ' ', a - 1);
end.
А, если ты её просто учителю показываешь:
var a, b: longint;
begin
write('Сколько банок прострелил Гарри? ');
readln(a);
write('Сколько банок прострелил Ларри? ');
readln(b);
writeln('Гарри не прострелил ', b - 1, ' банок');
writeln('Ларри не прострелил ', a - 1, ' банок');
end.
N = 110
K = 72
I = ?
N = 2^i
110 = 2^i
i = 7 бит (ближайшая степень после числа 110)
I = K * i
I = 72* 7 = 504 бит = 504/8 байт = 63 байта
ответ: б.
Var c:real;
Begin
WriteLn('z = 9/(2c-1)');
Write('c = ');ReadLn(c);
if 2*c-1=0 then WriteLn('Ошибка: На ноль делить нельзя!')
else WriteLn('z = ',9/(2*c-1))
End.
103 а)
Карп
Кара
Кора
Коза
Б)
Вол
Кол
Кот
Кит
Текст, число, формула. А 2 я не знаю.