М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
ева19961
ева19961
08.03.2021 23:56 •  Информатика

Решить в visual studio c++.дано натуральное число n (n < 100). а) определить число выплаты суммы n рублей с монет достоинством 1, 2, 5 рублей и бумажных купюр достоинством 10 рублей. б) получить все выплаты (указать, какие монеты и купюры и в каком количестве следует использовать).

👇
Ответ:
Крумина927
Крумина927
08.03.2021
#include <iostream>
using namespace std;

int main() {
int n,k10,k5,k2,k1,k;
cout << "n = ", cin >> n, cout << "\n";
k = 0;
for (k10=0; k10<=n / 10; k10++)
for (k5=0; k5<=(n-10*k10) / 5; k5++) 
  for (k2=0; k2<=(n-10*k10-5*k5) / 2; k2++) {
  k1 = n-10*k10-5*k5-2*k2;
  cout << k10 << " " << k5 << " " << k2 << " " << k1 << "\n";
  k = k+1;
  }
cout << "k = " << k;
return 0;
}

Пример:
n = 16
0 0 0 16
0 0 1 14
0 0 2 12
0 0 3 10
0 0 4 8
0 0 5 6
0 0 6 4
0 0 7 2
0 0 8 0
0 1 0 11
0 1 1 9
0 1 2 7
0 1 3 5
0 1 4 3
0 1 5 1
0 2 0 6
0 2 1 4
0 2 2 2
0 2 3 0
0 3 0 1
1 0 0 6
1 0 1 4
1 0 2 2
1 0 3 0
1 1 0 1
k = 25
4,8(78 оценок)
Открыть все ответы
Ответ:
ппп278
ппп278
08.03.2021
 const nx = 20;
var x: array[1..nx, 1..nx] of integer;z:array[1..nx*2] of integer; 
i, j, k,n,r,t: integer; 
begin 
Writeln('Введите размер матрицы n');Read(n); 
 for i := 1 to n do begin   
for j := 1 to n do begin   
Read(k);x[i, j] := k;  end;end;   
Writeln('Исходный массив'); 
for i := 1 to n do begin   
for j := 1 to n do begin     
Write(x[i, j]:4);     
if x[i, j]>0 then begin t:=t+1; z[t]:=x[i, j];end;    
end;   
Writeln;  end; 
Writeln;Writeln('Одномерный массив'); 
for j := 1 to t do     
Write(z[j]:4); 
 end.
4,7(96 оценок)
Ответ:
kleep9007катя
kleep9007катя
08.03.2021

function Len(x1,y1, x2, y2:real):real;

begin

   Len := sqrt( sqr(x1 - x2) + sqr(y1 - y2) );

end;

 

var

  x1,x2,x3,x4,x5, y1, y2, y3, y4, y5:real;

begin

   write('x1 = '); readln(x1);

   write('y1 = '); readln(y1);

   write('x2 = '); readln(x2);

   write('y2 = '); readln(y2);

   write('x3 = '); readln(x3);

   write('y3 = '); readln(y3);

   write('x4 = '); readln(x4);

   write('y4 = '); readln(y4);

   write('x5 = '); readln(x5);

   write('y5 = '); readln(y5);

   writeln('P = ', Len(x1,y1,x2,y2) + Len(x2,y2,x3,y3) + Len(x3,y3,x4,y4) + Len(x4,y4,x5,y5) + Len(x5,y5,x1,y1));

end.

 

4,7(87 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ