Написать программу, вычисляющая сумму четных положительных чисел и количество отрицательных чисел, кратных пяти.

Question

Информатика

Динуся

29 сентября, 20:48

Написать программу, вычисляющая сумму четных положительных чисел и количество отрицательных чисел, кратных пяти.

+1

Ответы (1)

Знаете ответ на вопрос?

Всеслава · Answer 1

Program mod; uses crt; var x, i, a:integer; begintextcolor (11) ; writeln ('Введите любое число кратное 5: ') ; readln (a) ; for x:=1 to a doif (x mod 5 = 0) theni:=i+x; writeln (i) ; end.