1. 

   Sova New Member

   "Найти сумму всех положительных чисел вводимых с клавиатуры. Если 0, то вывод на печать" Программа ПаскальАВС....ПОМОГИТЕ!!!!!!!

    

   Sova, 24 янв 2010

   #1
2. 

   Ольчик New Member

   uses crt;
   
   var a,s:integer;
   
   begin
   
   s:=0;
   
   writeln('Введите числа');
   
   while a<>0 do begin
   
   readln(a);
   
   if (a>0) then s:=s+a;
   
   end;
   
   writeln('s=',s);
   
   end.
   
    

    

   Ольчик, 24 янв 2010

   #2

Ваше имя или e-mail:

Пароль:

Забыли пароль?

Запомнить меня