1. 

   ingener New Member

   Даны три целых числа. Определить, сколько среди них положительных чисел. составить программу на языке Паскаль

    

   ingener, 5 мар 2010

   #1
2. 

   Schmitt New Member

   var a,b,c,col:integer;
   begin
   col:=0; 
    readln(a,b,c);
     if (a>0) then col:=col+1
    else if (b>0) then col:=col+1
    else if (c>0) then col:=col+1;
   writeln('Положительных чисел: ',col); 
   readln;
   end. 

    

   Schmitt, 5 мар 2010

   #2

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

Пароль:

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

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