Экономика
Дана программа, решающая определенную задачу.
Проделать следующую работу: Сформулировать условие задачи, которую решает данная программа. Указать, какую (ие) подзадачу (и) решает (ют) процедура (ы) в программе.
procedure pr(n: integer; var p, k: integer);
begin
p := 1;
k := 0;
while n <> 0 do
begin
if n mod 2 = 0
then
begin
p := p * (n mod 10);
k := k + 1
end;
n := n div 10
end;
end;
var
n, p, kol: integer;
begin
write('n? ');readln(n);
pr(n, p, kol);
writeln('Произведение ', p);
writeln('Количество ', kol)
end.
Помогите пожалуйста очень срочно!!!
Дана программа, содержащая пропуски и синтаксические ошибки. Сформулировать условие задачи, исправить ошибки , представить правильный вариант программы и проверить его тестами.
Programmas2;
type
LinMass = array [1..1000] of Integer;
var
B: LinMass;
n,m, i, j: Integer;begin
Write('Количество строк массива: ');ReadLn(n);
Write('Количество столбцов массива: ');ReadLn(m);
forI := 1 To nDo begin
forj := 1 To m Do
begin
Write('Введите элементы массива A[',i,',',j,']=');
ReadLn(A[i,j]);
end;
end;
writeln('итоговыймассив:':25);
fori:=1 to ndo begin
forj:=1 to mdo begin
A[1,j]:=111;
A[i,2]:=222;
Write(' A[',i,',',j,']=',B[i,j],';')
end;
writeln(' ');
end;
end.
