Регистрация
voirakbarov5gmailcom
26.12.2021 16:06
Информатика
Есть ответ 👍

Подсчитать значение произведения целых чисел кратных 3 и 5 от 1 до 20. нужно сделать так, чтобы программа сама нашла числа, кратные 3 и 5, а не чтобы человек сам сразу их вбил в произведение. паскаль

247
401
Посмотреть ответы 2

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

nosok666
nosok666
4,4(42 оценок)
Var a,s: integer; begin s: =1; for a: =1 to 20   do begin if (a mod 3 = 0) and (a mod 5 = 0) then s: =a*s; end; writeln('произведение чисел кратных 5 и 3 ==> ', s); end.
cariandreevac
cariandreevac
4,8(14 оценок)
N=-5s=0while float(n)< 0:     n=input("введите число: ")    if float(n)> 0:         break    s+=float(n)      print(s)

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