Регистрация
Ryfili
27.12.2020 19:05
Информатика
Есть ответ 👍

ДО сейчас не могу сейчас не прохадите мимо умоляю

276
413
Посмотреть ответы 1

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

elena111104
elena111104
4,5(91 оценок)
Var   number: real;   p, k, i, s,c: integer;   str1, str2: string; begin   readln(number);                                                                     str(number, str1);   str2: = copy(str1, pos('.', str1)+1, 3);   val(str2,k,c);   s: = 0;   while (k < > 0) do   begin       s: = s + (k mod 10);       k: = k div 10;   end;     writeln(s); end.

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