Регистрация
Chvrv
05.10.2020 08:28
Информатика
Есть ответ 👍

Pascal, составить на вход даётся число, определить произведение цифр числа кратных 3, если таких нет вывести на экран "нет".

242
297
Посмотреть ответы 2

Ответы на вопрос:

Футболист111111
Футболист111111
4,8(48 оценок)
//pascalabc.net //версия 3.3, сборка 1634 begin var n: =abs(readinteger); var a: =n.tostring.select(x-> x.todigit).where(t-> t mod 3=0); if a.count=0 then write('нет') else write(a.aggregate(real(,y)-> x*y)); end.
dkuchanov1352
dkuchanov1352
4,4(62 оценок)

а)

x = float(input())

y = 7 * x ** 2 - 3 * x + 6

print(y)

б)

x = float(input())

y = 12 * a ** 2 + 7 * a - 16

print(y)

Популярно: Информатика