Регистрация
jinoguhaz
24.01.2022 02:10
Информатика
Есть ответ 👍

Сілтемелердің кестесі элементтер тобының қызметі неде

178
349
Посмотреть ответы 1

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

НАСТЯ7539
НАСТЯ7539
4,5(54 оценок)
Pascalabc.net (только под этим компилятором, в программе есть функции, которых нет в стандартном наборе) если под turbopascal или free то будет выглядеть иначе const      s = 10;         var    a : array of char;     i,l : integer;     r : real;       begin  setlength (a,1);   read (a[0]);   i : = 0;       while a[i] < > ' ' do    begin    i : = i +1;       setlength (a,i+1);     read (a[i]);     end;       r : = 0;   l : = i-1;       for i : = 0 to l do begin  r : = r + (ord(a[i]) - 48) * power (s,(l-i));     end;         writeln (r);           end.

Популярно: Информатика