Вс++ дано шестизначное число.найти суму его цифр . величины для хранения всех шести цифр числа не использовать
254
388
Ответы на вопрос:
#include < iostream> using namespace std; int main() { int x = 123456; //число int sum = 0; while (x > 0) { sum += x % 10; x /= 10; } cout < < sum; return 0; }
1. var a: array[1..5,1..5] of integer; i,j,sum,min,n: integer; begin min: =25; for i: =1 to 5 do begin writeln('введите места ', i,' спортсмена'); for j: =1 to 5 do read(a[i,j]); end; for i: =1 to 5 do begin for j: =1 to 5 do sum: =sum+a[i,j]; if sum< min then begin min: =sum; n: =i; sum: =0; end; end; writeln(n, ' спортсмен лучший'); end. 2. var a: array[1..20,1..20] of integer; sum: array[1..20] of integer; i,j,n,k: integer; begin writeln('введите количество команд'); readln(n); for i: =1 to n do for j: =1 to n do if i = j then a[i,j]: =0 else begin writeln('введите количество очков, заработаных ', i ,' командой в матче поротив ', j, ' команды'); read(a[i,j]); end; for i: =1 to n do for j: =1 to n do sum[i]: = sum[i]+ a[i,j]; for i: =1 to n do if sum[i]> (3*(n-1)/2) then k: =k+1; writeln(k ,' команд(а,ы) имеют больше побед, чем поражений'); end. 3. var a: array[1..20,1..20] of integer; sum: array[1..20] of integer; i,j,n: integer; begin writeln('введите количество команд'); readln(n); for i: =1 to n do for j: =1 to n do if i = j then a[i,j]: =0 else begin writeln('введите количество очков, заработаных ', i ,' командой в матче поротив ', j, ' команды'); read(a[i,j]); end; for i: =1 to n do for j: =1 to n do sum[i]: = sum[i]+ a[i,j]; for i: =1 to n do if sum[i] = 3*(n-1) then write(i, ' '); write(' команд(а,ы) прошли чемпионат без поражений! '); end. 4. var a: array[1..20,1..20] of integer; sum: array[1..20] of integer; i,j,n,k: integer; begin writeln('введите количество команд'); readln(n); for i: =1 to n do for j: =1 to n do if i = j then a[i,j]: =0 else begin writeln('введите количество очков, заработаных ', i ,' командой в матче поротив ', j, ' команды'); read(a[i,j]); end; for i: =1 to n do for j: =1 to n do if a[i,j]< > 1 then sum[i]: = sum[i]+ a[i,j]; for i: =1 to n do if sum[i] > (3*(n-1))/2 then k: =k+1; write(k,' команд выиграли более половину игр'); end.
Популярно: Информатика
-
genalysenko9819.10.2021 20:23
-
iarik200815.05.2020 09:26
-
Bячеслав08.10.2020 16:38
-
Znatokkekgg26.03.2020 19:24
-
алеся67831.01.2020 13:33
-
nakjuo05.12.2020 20:11
-
Jason1919.06.2021 08:39
-
londonparisch05.08.2022 21:37
-
НастяяКисаа20.12.2022 23:37
-
Diana12000027.01.2020 08:07