Хелппппппппппппппппппппппппппппппппппппп

Хелппппппппппппппппппппппппппппппппппппп

Задать свой вопрос
1 ответ
Program al;
var i,s,n:integer;
f,g:text;
begin
 assign(f,'input.txt');
 reset(f);
 read(f,n);
 s := 0;
 while (n lt;gt; 0) do
 begin
 s := s + n mod 10;
 n := n div 10;
 end;
 assign (g,'output.txt');
 rewrite(g);
 write(g,s); 
close (f);
 close(g); 
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт