Информатика на пять О нас
 Добавить в избранное
5byte.ru
 Теория
 8 класс
 9 класс
 10 класс
 11 класс
Задания
 8 класс
 9 класс
 10 класс
 11 класс
Книги
Тесты
ЕГЭ
Turbo Pascal 7
 Описание
 Задачи
HTML
Рефераты

Задача 74.

Подсчитать сумму всех цифр данного предложения.

program c60;
  uses ctr;
  var d,i,k,n:integer;
      st:string;
begin
  clrscr;
  write('st= ');readln(st);
  k: =length(st);
  n:=0;
  for i:=1 to k do
    begin
      val(st[i],d,k);
      if k=0 then n: =n+d;
    end;
  writeln('n= ',n);
  readln;
end.





 У Вас есть материал пишите нам
 
    Copyright © 2008    
Rambler's Top100