// pascalabc.net function isnice(n: longint): boolean; // отвечает на вопрос, является ли число красивым var d,nd,sd: byte; begin sd: =0; nd: =0; repeat d: =n mod 10; sd: =sd+d; inc(nd); n: =n div 10 until n=0; isnice: =(sd mod nd = 0) end; var i,n,k: longint; begin write('порядковый номер "красивого" числа: '); read(n); i: =1; k: =0; repeat if isnice(i) then inc(k); if k< > n then inc(i) until k=n; writeln('красивое число равно ',i) end. тестовое решение: порядковый номер "красивого" числа: 15 красивое число равно 20
Murad Gushcharin
25.01.2022
Мне лень на паскале + он туповат, вот код на с++ (современный язык на ряду с java)#include < bits/stdc++.h> #include < conio.h> typedef long long lol; typedef unsigned long long ull; typedef int it; typedef bool bl; typedef long double ld; typedef char cr; #define mp make_pair#define inf int_max#define linf long_long_max#define fr(i,n) for(i=0; i< (n); i++)#define frr(i,n) for(i=0; i< =(n); i++)#define wl(i,n) while(i< n)#define prllprll pair < pair< long long,long long> ,pair< long long,long long> > #define prll pair< long long,long long> #define pri pair< int, int> #define f first#define s second#define sqr(a) ((a)*(a))#define pb push_back#define vll vector< long long> #define vit vector< int> #define sg string#define qit queue< int> #define qll queue< long long> #define pqll priority_queue< long long> #define pqit priority_queue< int> #define y dsadaf#define y1 lfkfgiusing namespace std; lol a,b; int main(){ cin > > a > > b; if (a> =1 & & a< =3) cout < < 600*b; else if (a> =4 & & a< =7) cout < < 700*b; else if (a> =8 & & a< =14) cout < < 500*b; else return 0; }
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Решите на языке с++на одной тарелке 8 пончиков, а на другой на 3 меньше, сколько всего пончиков на двух тарелках