Boston Dynamics решили выпустить робота-почтальона, его задача доставить посылку к дому, отчитаться о доставке и поехать к следующему. Повезло, что все заказчики живут на одной улице и дома нумеруются по порядку Вам даны два целых числа A и В, номер первого дома и номер последнего, который посетил почтальон ему составить отчет для Boston Dynamics и выведите номера всех домов от A до B включительно. И да, этот почтальон - инновационное изобретение, которые не знает циклов, так что вам придется использовать рекурсию. Формат входных данных На вход ваша программа получает два целых числа (1 ≤ a ≤ b ≤ 100 Формат выходных данных Выведите все числа от A до B входные данные 3 6 1 10 выходные данные 3 4 5 6 1 2 3 4 5 6 7 8 9 10
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
var a: array[1..amax,1..amax] of integer;
i,j,k,n,m: byte;
begin
write('Введите размеры массива(матрицы (<20)):');
readln(n,m);
writeln('Массив(матрица):');
for i:=1 to n do begin
for j:=1 to m do begin a[i,j]:=random(99)+1;
write(a[i,j]:4);
end;
writeln;
end;
writeln('Кол-во четных элементов по колонкам:');
for j:=1 to m do
begin
k:=0;
for i:=1 to n do
if odd(a[i,j])=false then inc(k);
writeln('В ',j,' столбце ',k);
end;
writeln('Конец программы!');
end.