Помогите пожалуйста . Первое попыталась сделать, выдаёт неясную ошибку, а второе вообще не понимаю.
Задание в PascalABC
1. Пользователь вводит два вещественных числа. Если они оба не равны нулю, то найдите сумму их модулей и корень квадратный из их произведения и
выведите их на экран. В противном случае вычислите их сумму и выведите на экран.
2. Пользователь вводит два целых числа. Если большее из них кратно 8, то выведите на экран произведение введенных чисел. В противном случае вычислите сумму их последних цифр и выведите ее на экран.
Задание в PascalABC
1. Пользователь вводит два вещественных числа. Если они оба не равны нулю, то найдите сумму их модулей и корень квадратный из их произведения и
выведите их на экран. В противном случае вычислите их сумму и выведите на экран.
2. Пользователь вводит два целых числа. Если большее из них кратно 8, то выведите на экран произведение введенных чисел. В противном случае вычислите сумму их последних цифр и выведите ее на экран.
More Questions From This User See All
Answers & Comments
№1
var
a,b : real;
begin
writeln('Введите 2 числа:');
readln(a,b);
if (a<>0) and (b<>0) then begin
writeln('Сумма модулей:', abs(a) + abs(b));
write('Квадратный корень из произведения:', sqrt(a*b));
end
else
write(a+b);
end.
№2
var
a,b,mx : integer;
begin
writeln('Введите 2 числа:');
readln(a,b);
if a > b then //будем считать, что они не могут быть равны
mx := a
else
mx := b;
if mx mod 8 = 0 then
write(a*b)
else
write((a mod 10) + (b mod 10))
end.