Колко са положителни?

Публикувано на 24 февруари, понеделник от Данаил

Да се въведат две реални числа и да се изведе колко от тях са положителни – и двете, само едното или нито едно от тях.

Публикувано в 10a, 10б с етикети . Постоянна връзка.

2 Responses to Колко са положителни?

  1. Mladen96 каза:
    24 февруари, понеделник в 11:31 
    program Program1;

var
a,b: real;

begin
WriteLn ('Vavedete chislata a;b:');
ReadLn (a,b);
If a>0 then
  if b>0 then
    WriteLn (' I dvete sa polojitelni')
  else WriteLn ('Samo A e polojitelno')
else
  If B>0 then
    WriteLn ('Samo B e polojitelno')
  else WriteLn (' I dvete sa otricatelni');

ReadLn;
end.
  2. teriinkaa17 каза:
    24 февруари, понеделник в 11:35 
    
program Project1;
var a, b:integer;

begin
WriteLn('Vavedete koeficientite na a i b:') ;
ReadLn(A,B) ;

if A>0 then
  if B>0 then
  WriteLn('I dvete sa polojitelni')
  else WriteLn('Samo A e polojitelno')
else if B>0 then
    WriteLn(' Samo B e polojitelno')
else WriteLn(' I dvete sa otricatelni') ;
  ReadLn ;
end.

Вашият коментар