по информатике, кто спец(( вообще ничего не понимаю а уже конец учебного года. Аттестата нет(((сделать - id1251646320220513 от физикаматика 13.05.2022 00:33

Question

Информатика: по информатике, кто спец(( вообще ничего не понимаю а уже конец учебного года. Аттестата нет(((сделать через комп Написать программы на языке Паскаль для следующих задач. 1. С клавиатуры вводятся n целых положительных чисел (от 1 до 50). Найти их сумму. 2. С клавиатуры вводятся n целых положительных чисел. Найти максимальное из введенных чисел. 3. С клавиатуры вводятся n целых чисел. Подсчитать количество чисел меньших нуля

физикаматика · Accepted Answer

Ll - long long

dp[i] = dp[i-1] + dp[i-2] + dp[i-5] + dp[i-10];
ll dp[666];
dp[0] = 1;
for(int i=0;i<=64;i++)
{
dp[i+1]+=dp[i];
dp[i+2]+=dp[i];
dp[i+5]+=dp[i];
dp[i+10]+=dp[i];
cout << i << ": " << dp[i] << endl;
}
это если порядок важен, то есть 2 + 1 != 1 + 2, тогда ответ
489475342266653, наверное
а иначе 644

ll ans=0;
for(int i=0;i<10;i++) // 10
{
for(int j=0;j<20;j++) // 5
{
for(int k=0;k<50;k++) // 2
{
ll now = i*10 + j*5 + k*2;
if(now<=64) ans++;
}
}
}
cout << ans;

MOGZ ответил