Занести в массив значения функции f(x,y)=1/(1+y^ax)и вывести результат на дисплей

163

265

Посмотреть ответы 1

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

Scvetocheek1

Информатика

4,7(51 оценок)

// напишите программу, которая в последовательности натуральных чисел определяет количество //чисел, кратных 3. программа получает на вход количество чисел в //последовательности, а затем сами числа. в последовательности всегда имеется число, //кратное 3. количество чисел не превышает 100. введённые числа не превышают 300. //программа должна вывести одно число - количество чисел, кратных 3. var i,j,x : word; n : integer; begin writeln('введите количество цифр в последовательности'); readln (j); if j> 100 then //проверка накличество чисел в последовательности begin writeln ('по условия цифр не должно быть более 100'); writeln ('введите количесво цифр еще раз'); readln (j); end; for i: =1 to j do begin writeln ('введите ',i,' число'); readln (n); if n> 300 then //проверка максимального значения числа begin writeln ('данное число не удовлетворяет условиям (> 300'); writeln ('введите его еще раз'); readln (n); end; n: = n mod 3; if n=0 then x: =x+1; end; writeln ('количество чисел, кратных 3: '); writeln (x); end.