Question

Здравствуйте, помогите написать програмку в паскале.-Ввести два трехзначных числа. Если последняя цифра первого числа равна первой цифре второго числа, то утроить каждое число, иначе – найти частное чисел.

Answer 1

Var numb1,numb2:integer;
begin
readln(numb1,numb2);
if (numb1 mod 10 = numb2 div 100) then
 writeln(numb1*3,' ',numb2*3)
else
writeln(numb1/numb2);
end.