Преобразовать строку так,чтобы все цифры были отсортированы по убыванию delphi или паскаль (лучше delphi)

166

299

Посмотреть ответы 2

Ответы на вопрос:

darka448Darina

Информатика

4,5(47 оценок)

Var s: string; a: array [0..9] of integer; i, j: integer; begin s = readln(); for i : = 1 to length(s) do a[convert.toint32(s[i])]++; for i : = 9 downto 0 do for j : = 1 to a[i] do write(i); end. это на pascalabc.net. все должно работать, только convert можешь сам исправить, если не работаешь в .net

KaterinaFadeeva

Информатика

4,4(72 оценок)

#include < bits/stdc++.h> using namespace std; int main(){ double a; double b; cin > > a > > b; cout < < a*a+b*b < < endl; cout < < a*a - b*b < < endl; cout < < a*a * b * b < < endl; cout < < a*a / (b*b) < < endl; return 0 ; }