Люююююди, помогитеее. Это паскаль.
Дано два двузначных числа. Если последняя цифра первого числа четная то найти сумму исходных чисел, иначе найти произведение последних цифр данных чисел.
Дано два двузначных числа. Если последняя цифра первого числа четная то найти сумму исходных чисел, иначе найти произведение последних цифр данных чисел.
More Questions From This User See All
Answers & Comments
var a,b,a_end,sum,dob : integer;
begin
writeln('enter a = ');
read(a);
writeln('enter b = ');
read(b);
sum:= 0;
dob:= 1;
a_end:= a mod 10;
if (a_end mod 2) = 0 then
begin
sum:= a + b;
writeln('sum = ',sum);
end
else
begin
dob:= a*b;
writeln('dob = ',dob);
end;
end.