<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
// без проверок на правильность
var st:=ReadlnString;
var p:=st.MatchValues('(\d+)').Select(x->x.ToBigInteger);
var s:=BigInteger(0);
foreach var n in p do s+=n;
Writeln(s)
end.
<u>Примеры</u>
12+32+43+5
92
123424634243542+36745656856678567578654+434253+3222+322523230
36745656980103524782901
Смотря какие им будут заданы пользователем)
При копировании кода из IDE на сайт автоматически удаляется перенос строки. Будет прикреплен скриншот того, как должен выглядеть код
#include <stdio.h>#include <stdlib.h>#include <locale>
void main(){ setlocale(LC_ALL, "RUSSIAN"); int N; printf("\n Введите N (размер массива) >> "); scanf_s("%d", &N); int *array1 = new int[N]; for (int i = 0; i < N; i++) { array1[i] = rand() % 100 + 1; printf("%d ", array1[i]); } system("pause");}
Ответ: В двоичной 1011010001, в восьмеричной 1321, в шестнадцатиричной 2D1.
Объяснение:
var
x, y, a, b, c: real;
t: integer;
begin
read(x);
t := Round(10 * x);
a := t div 100;
b := (t div 10) mod 10;
c := t mod 10;
y := c + b / 10 + a / 100;
Println(y);
end.
Или можно сократить число используемых переменных:
var
x: real;
t: integer;
begin
read(x);
t := Round(10 * x);
Println(t mod 10 + (t div 10 mod 10) / 10 + t div 100 / 100);
end.
