Question

Среди 5 чисел, найти произведение чисел, у которых последняя цифра -3. pascal

Answer 1

Ответ:

смотри ниже

Объяснение:

program 5ch;

var

 i: integer;

 ch: integer;

 itog: integer;

begin

 for i:=1 to 5 do

    begin

       write ('Введите целое число: ');

       readln(ch);  

       if (ch mod 10 = 3) then

         begin

           if itog=0 then

              itog:=ch

           else

              itog:=itog*ch;

         end;

    end;

 writeln ('Произведение чисел с последней цифрой 3 равно: ', itog);

end.

вроде так как-то.