Дано четырехзначное число если сумма всех цифр кратно 5 ти найти корень квадратный от произведения первой и четвертой цифры иначе найти произведение второй и третьей цифры
Дано четырехзначное число если сумма всех цифр кратно 5 ти найти корень квадратный от произведения первой и четвертой цифры иначе найти произведение второй и третьей цифры
Гость
Ответ(ы) на вопрос:
Гостьvar s: string;
begin
read(s);
if s.Length = 4 then
begin
if((strtoint(s[1])+strtoint(s[2])+strtoint(s[3])+strtoint(s[4]))mod 5=0)
then write(sqrt(strtoint(s[1])*strtoint(s[4])))
else write(strtoint(s[2])*strtoint(s[3])) end;
end.
Не нашли ответ?
Похожие вопросы