Informatică, întrebare adresată de durakprostakyou, 8 ani în urmă

(40puncte)Elaborati un program:

Anexe:

durakprostakyou: program lol;
uses Crt;
type natural=0..maxint;
var i,k,m,n:natural;
function sumacif(i:natural):natural;
var suma:natural;
begin
suma:=0;
repeat
suma:=suma+(i mod 10);
i:=i div 10;
until i=0;
Sumacif:=suma;
end;
function solposib (i:natural):boolean;
begin
if sumacif (i)=m then solposib:=true
else solposib:=false
end;
procedure presol (i:natural);
begin
Writeln('i=',i);
k:=k+1;
end;
begin
clrscr;
n:=100;
m:=5;
k:=0;
for i:=0 to n do
if solposib (i)then presol(i);
writeln ('k=',k);
readln;
end.
durakprostakyou: Poate cuiva îi va fi de folos.

Răspunsuri la întrebare

Răspuns de imihay14
0

Răspuns:

#include <iostream>

using namespace std;

int main()

{

   int n,i,k,s,r;

   i=0;

   k=0;

   while(i<=100)

   {

       s=0;

       n=i;

       while(n!=0)

       {

           r=n%10;

           s=s+r;

           n=n/10;

       }

       if(s==5)

           k++;

       i++;

   }

   cout<<k;

   return 0;

}

Explicație:


imihay14: Daca vrei sa testezi programul, scrie-l tu, NU da copy/paste ca s-ar putea sa iti dea eroare.
durakprostakyou: Eu nu am precizat limbajul de programare, aveam nevoie în pascal. dar deja nu conteaza.În orice caz mulţumesc.=)
Alte întrebări interesante