Предмет: Информатика,
автор: nkarlikova
дано четырехзначное число если сумма всех цифр кратно 5 ти найти корень квадратный от произведения первой и четвертой цифры иначе найти произведение второй и третьей цифры
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Қазақ тiлi,
автор: qexso
Предмет: Математика,
автор: Аноним
Предмет: Английский язык,
автор: kamillarastrosta
Предмет: Литература,
автор: amikhalishchicv