Помогите срочно прошу! Решите задания, 1)Использовать для решения задач такую среду программирования как Free Pascal, C++ , Python
Приложения:
Ответы на вопрос
Ответил srzontmp
0
Ответил aleshahisjnak2014
0
Тут нет к второму заданию решения
Ответил srzontmp
0
Во втором задании во втором тесте другой результат получается, не 143702, а 122324, второй тест у Вас не пройдет, поэтому и не стал записывать решение. Текст программы могу выложить. var k,n,i,j,dk,k3,k5: integer;
a: array[1..3] of integer;
begin
write('k n через пробел: ');
readln(k,n);
for i:=1 to 3 do a[i]:=0;
for i:=1 to n do
begin
for j:=3 downto 2 do a[j]:=a[j-1];
dk:=a[3];
a[1]:=k;
k3:=k div 3;
while (k-k3*3) mod 5<>0 do k3:=k3-1;
k5:=(k-k3*3) div 5;
k:=k+k3*5+k5*9-dk;
end;
writeln(k);
end.
a: array[1..3] of integer;
begin
write('k n через пробел: ');
readln(k,n);
for i:=1 to 3 do a[i]:=0;
for i:=1 to n do
begin
for j:=3 downto 2 do a[j]:=a[j-1];
dk:=a[3];
a[1]:=k;
k3:=k div 3;
while (k-k3*3) mod 5<>0 do k3:=k3-1;
k5:=(k-k3*3) div 5;
k:=k+k3*5+k5*9-dk;
end;
writeln(k);
end.
Ответил srzontmp
0
Нашел ошибку в программе. Нужно заменить строку a[1]:=k; на строку a[1]:=k-a[2]-a[3];
Ответил aleshahisjnak2014
0
Всё равно большое спасибо!)
Ответил srzontmp
0
Пожалуйста.
Новые вопросы