Question

Срочно!!! Опирации div и mod в pascal ABC. Сразу 5 звёзд тому кто решит

Answer 1

Ответ:

лови 2 задачки

Объяснение:

первая задача:

var a, a1, a2, a3, otv:integer;

begin

write('введите трёхзначное число ');

read(a);

a1:=a div 100;

a2:=(a mod 100) div 10;

a3:=a mod 10;

otv:= a1 + a2 + a3;

write('ответ ',otv);

end.

вторая задача:

var a, a1, a2, otv:integer;

begin

writeln('нахождение произведения цифр духзначного числа ');

writeln('введите исходное число ');

read(a);

a1:=a div 10;

a2:=a mod 10;

otv:= a1 * a2;

write('произведение цифр = ',otv);

end.