Если ты сдаешь эту задачу на сайт 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.
var i: integer;
begin
for i := 1000 to 9999 do
if (i div 1000) * (i div 100 mod 10) * (i div 10 mod 10) * (i mod 10) = 40
then writeln(i)
<span>end.</span>
Как начать работу в интернете ?
10011, 110110, 1111100, 1000111
Var
str : string;
i, num : integer;
begin
readln(str);
num := 0;
for i := 1 to length(str) do
if str[i] in ['0'..'9'] then
num := num + 1;
writeln(num);
end.