👤
YUSYVIZ
a fost răspuns

se citesc n numere naturale in variabila x.Sa se afiseze produsulnumerelor care au catul egal cu restul la impartirea la k

Răspuns :

FACEBOOKAUGUSTIVIZ
Program Augustin;
var
x:array [1..10] of integer;
n,i,k,s:integer;
y,z:real;
begin
Writeln('Introdu cite "n" numere naturale introduci');
readln(n);
for i:=1 to n do
begin
Writeln('x[',i,']=');
readln(x[i]);
end;
Writeln('Introdu "k"');
readln(k);
for i:=1 to n do
begin
y:=x[i] mod k;
z:=x[i] div k;
if y=z then s:=s+x[i];
end;
Writeln('Suma ',round(s));
readln;
end.
Vă mulțumim pentru vizita pe platforma noastră dedicată Informatică. Sperăm că informațiile prezentate v-au fost utile. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, nu ezitați să ne contactați. Așteptăm cu entuziasm să reveniți și vă invităm să ne adăugați la lista de favorite!


Viz Lesson: Alte intrebari