Padekite! Paskalio programa.

mokyloje davė tokią užduotį, gal kas galite padėti.

parasyk programelę, kur bus įvedami trys skaiciai.(a,b,c) Jei jie visi yra didesni uz 0 tai isvesk jų sumą. jei ne tai pranesk apie tai sakiniu: " vienas arba daugiau skaimenų yra mazenis uz 0".

mokyloje davė tokią užduotį, gal kas galite padėti.

 

parasyk programelę, kur bus įvedami trys skaiciai.(a,b,c) Jei jie visi yra didesni uz 0 tai isvesk jų sumą. jei ne tai pranesk apie tai sakiniu: " vienas arba daugiau skaimenų yra mazenis uz 0".

var a,b,c, sum: real;
begin
ReadLn(a,b,c);

  if (a > 0) and (b > 0) and (c > 0) then
   begin
  sum:= a+b+c;
  Writeln(sum:2:2)
           end
  else
  WriteLn('Vienas arba daugiau skaitmenų yra mažesni');

end.

var a,b,c, sum : real;
begin

ReadLn(a,b,c);

  if a+b+c > 0 then
   begin
  sum:= a+b+c
  Writeln('sum:2:2')
            else
  WriteLn('Vienas arba daugiau skaitmenų yra mažesni')
end;
end.

O jei įvesi -1 -1 ir 10? suma bus 8 ir tavo programa išves sumą, nors 2 iš 3 įvestų skaitmenų - mažesni už 0.

program skaiciai;
var
   a,b,c:integer;
begin
   Writeln('Iveskite tris skaicius: ');
   Readln(a,b,c);
   if (a < 0) or (b < 0) or (c < 0) then
       writeln('Vienas arba daugiau skaitmenu yra mazesnis uz 0.')
   else
   begin
       a:=a + b + c;
       Writeln('Skaiciu suma: ',a);
   end;
   Readln;
end.

O jei įvesi -1 -1 ir 10? suma bus 8 ir tavo programa išves sumą, nors 2 iš 3 įvestų skaitmenų - mažesni už 0.

 

 

program skaiciai;
var
   a,b,c:integer;
begin
   Writeln('Iveskite tris skaicius: ');
   Readln(a,b,c);
   if (a < 0) or (b < 0) or (c < 0) then
       writeln('Vienas arba daugiau skaitmenu yra mazesnis uz 0.')
   else
   begin
       a:=a + b + c;
       Writeln('Skaiciu suma: ',a);
   end;
   Readln;
end.

Mhm ačiū. Pats pastebėjau, kad nesamonę parašiau, pasitaisiau.

O jei įvesi -1 -1 ir 10? suma bus 8 ir tavo programa išves sumą, nors 2 iš 3 įvestų skaitmenų - mažesni už 0.

 

 

program skaiciai;
var
   a,b,c:integer;
begin
   Writeln('Iveskite tris skaicius: ');
   Readln(a,b,c);
   if (a < 0) or (b < 0) or (c < 0) then
       writeln('Vienas arba daugiau skaitmenu yra mazesnis uz 0.')
   else
   begin
       a:=a + b + c;
       Writeln('Skaiciu suma: ',a);
   end;
   Readln;
end.

Ačiū LABAI!! :)