Sa se scrie un program care calculeaza suma numerelor impare, programul se sfarseste la introducerea cifrei 0. (PASCAL)
Ajutor! Imi trebuie repede. Dau coronita!
Răspunsuri la întrebare
Răspuns de
1
Am doua metode prima este aceasta:
var
n,b,i:integer;
begin
b:=0;
read(n);
for i:=1 to n do
if (i mod 2=1) then
b:=b+i;
write(b);
end.
A doua metoda:
var n,i,s:integer;
begin
write('n = ');
read(n);
s:=0;
for i:=1 to n do
begin
if i mod 2<>0 then
s:=s+i;
end;
write('s = ',s);
end.
grigore2018:
Cam sunt la fel ele dar a doua metoda este mai corect scisa din punct de vedere informatic : )))
Răspuns de
0
program sumaImpare;
var num, suma: integer;
begin
suma:=0;
write('introdu numere intregi. Stop este introducerea lui zero...');
read(num);
while (num>0) do
begin
if (num mod 2 =1) then suma:=suma+num;
read (num);
end;
writeln('suma imparelor = ', suma);
end.
Alte întrebări interesante
Matematică,
8 ani în urmă
Engleza,
8 ani în urmă
Fizică,
9 ani în urmă
Matematică,
9 ani în urmă
Matematică,
9 ani în urmă
Matematică,
9 ani în urmă