Dim n As Integer n = InputBox("Введите n") Dim summ As Integer Dim i As Integer For i = 1 To Len(n) summ += CInt(Mid(CStr(n), i, 1)) ' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535 Next MsgBox("количество цифр числа n=" & Len(n) & ", сумма его цифр равна " & summ & " и первая цифра -" & CInt(Mid(CStr(n), 1, 1)))
1) var a:array[1..20] of integer; index, Min,count, i, n:integer; begin Readln(n); Min:= 81;index:=-1; For i:= 1 to n do begin a[i]:= random(96) - 15; Write(a[i], ' '); if Min = a[i] then count:= count+1; if Min > a[i] then begin Min:=a[i]; index:=i; count:=1; end; end; Writeln; Writeln('Min = ', Min); Writeln('Минимумов: ', count, ' их сумма равна ', count*Min); for i:= n downto 2 do if (a[i] < 0) and (a[i-1] < 0) then begin Write('Номера соседних отрицательных эл-в -> '); Writeln(i-1, ' ', i); break; end; end.
Пример: 20 59 -3 44 -15 60 -3 70 -15 -10 1 -1 -2 21 23 -5 24 45 -10 0 48 Min = -15 Минимумов: 2 их сумма равна -30 Номера соседних отрицательных эл-в -> 11 12
2)
var a,b:array[1..200] of integer; i, n,cnt, j, Max:integer; begin Readln(n); Read(a[1]);Max:=a[1];cnt:=1; For i:= 2 to n do begin Read(a[i]); if a[i] = max then cnt:= cnt+1; if a[i] > max then begin max:=a[i]; cnt:=1; end; end; j:=1; for i:=1 to n do if a[i] < Max then begin b[j]:=a[i]; j:= j+1; end; for i:= j to n do b[i]:=Max; for i:=1 to n do Write(b[i], ' '); end.
Пример: 6 1 5 3 2 5 0 1 3 2 0 5 5
type Info = record name:string; unpl:integer;//unemployment end;
var a:array[1..40] of Info; tmp:Info; i, j:integer; begin For i:= 1 to 40 do begin Readln(a[i].name); Readln(a[i].unpl); end; For i:= 1 to 40 do for j:= i to 40 do if a[i].unpl > a[j].unpl then begin tmp.name:= a[i].name; tmp.unpl:= a[i].unpl; a[i].name:=a[j].name; a[i].unpl:=a[j].unpl; a[j].name:=tmp.name; a[j].unpl:=tmp.unpl; end; Writeln('три неблагополучных района:') Writeln(a[40].name); Writeln(a[39].name); Writeln(a[38].name); Writeln('три наиболее благополучных'); Writeln(a[1].name); Writeln(a[2].name); Writeln(a[3].name); end.
// // Разработал GonanSoft // int i; unsigned long long k=0; // сумма зёрен на i-ом шаге unsigned long long s=1; // количество зерен в i-ой клетке unsigned long long n; // переменная признак окончания
cout << 'количество зерен '; cin>>n; for (i = 1; i <= 64; i++) { k=k+s; if (n<k) break; s=s<<1; }
if (n<>18446744073709551615) //это проверка на максимум зёрен cout << 'Номер клетки = ' << i << '\n'; else cout << 'Сумма зёрен не превысит 18446744073709551615 ' << i << '\n'; //
Dim n As Integer
n = InputBox("Введите n")
Dim summ As Integer
Dim i As Integer
For i = 1 To Len(n)
summ += CInt(Mid(CStr(n), i, 1))
' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
Next
MsgBox("количество цифр числа n=" & Len(n) & ", сумма его цифр равна " & summ & " и первая цифра -" & CInt(Mid(CStr(n), 1, 1)))