Здравствуйте, помогите написать програмку в паскале.
-Ввести два трехзначных числа. Если последняя цифра первого числа равна первой цифре второго числа, то утроить каждое число, иначе – найти частное чисел.
Ответы
Ответ дал:
0
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.
begin
readln(numb1,numb2);
if (numb1 mod 10 = numb2 div 100) then
writeln(numb1*3,' ',numb2*3)
else
writeln(numb1/numb2);
end.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад