главная     электронная почта

Решение задач

Ввод и вывод данных во всех задачах предполагается через экран.Перевод задачи в "олимпиадный формат" для тестирующих систем с использованием входных и выходных файлов показан на примере задачи "Произведение и сумма цифр заданного числа.

  var     s:string;
        p,sum:longint;
        i,k,j:integer;
begin
assign(input,'input.txt');
assign(output,'output.txt');
reset(input);
rewrite(output);
     read(s);
     sum:=0;
     p:=1;
     for i:=1 to length(s) do
begin
     val(s[i],k,j);
     p:=p*k;
     sum:=sum+k;
end;
    writeln(sum);
    write(p);
end.
 
Hosted by uCoz