Question

Hacer un programa que lea 4 números y diga cuántos son múltiplos de 3 . No usar estructuras repetitivas.

Ejercicios condiciones

Answer 1

program Multiplosd3;

uses crt;

var

n1,n2,n3,n4,m3,n3: integer;

begin

clrscr;

writeln ('Introduzca 4 números: ');

Readln (n1);

Readln (n2;

Readln (n3);

Readln (n4);

 If (n1) or (n2) or (n3) or (n4) mod 3=0 then

   begin

    m3 := m3 +1;

   end

 else

   begin

    n3:= n3 +1;

   end;

Writeln ('De los 4 números introducidos hay',m3,' números múltiplos de 3');

Writeln ('De los 4 números introducidos hay',n3,' q no son múltiplos de 3');

End.

Lo acabo de hacer en la respuesta no en pascal, si me hubieras dado mas puntos te lo hubiera rectificado, pero son con acumuladores :)