Здравствуйте, помогите написать програмку в паскале.-Ввести два трехзначных числа. Если последняя цифра первого числа равна первой цифре второго числа, то утроить каждое число, иначе – найти частное чисел.
Здравствуйте, помогите написать програмку в паскале.
-Ввести два трехзначных числа. Если последняя цифра первого числа равна первой цифре второго числа, то утроить каждое число, иначе – найти частное чисел.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы