Кто умный и кому не лень Дано ціле число N і цифра w.

Знайти:

1) кількість цифр w;

2) суму цифр, кратних 4.

Контрольні приклади

1) N= 1284227, w= 2 => kw= 3, s= 12

2) N= 2748744, w= 7 => kw= 2, s= 20

Лучше сразу говорить какой язык проходите, а то вдруг общественность догадается неправильно. Если вдруг паскаль, то я бы попробовал написать так:

первая программа  

program pr1 ;
var i , n : integer ;
var s : real ;
begin
n := 0 ;                         { количество найденных чётных чисел }
s := 1 ;                         { получившееся произведение }
   for i := 15 to 30 do
     if i mod 2 = 0 then begin
         n := n + 1 ;
         s := s * i ; 
         end ;
writeln ('kolicestvo chetnyh chisel=' , n , '  proizvedenie=' , s ) ;
end.

(Если я правильно догадался, что добуток значит произведение. Произведение такого кол-ва чисел будет слишком большим для разрядности целого числа, поэтому придётся использовать вещественное, а результат из-за этого получится приближённым). 

вторая

program pr2 ;
var i : integer ;
var k : real ;
begin
  k = 0 ;
  for i := 6 downto 1 do
          k := k + cos ( 1. / i ) ;
  writeln ('K=' , k:10:8 ) ; 
end.

(странный ряд. Чаще дают по-другому, типа 1/cos(x), ну что есть - то есть. Тогда всё ок). 

1

Написать программу ввода с клавиатуры и вывода на экран значений одномерного массива

16.04.2010, 08:15. Просмотров 159492. ответов 17

Метки нет (Все метки)

№1.

Написать программу ввода с клавиатуры и вывода на экран значений одномерного массива А, состоящего из n вещественных элементов (n=10). Найти сумму элементов этого массива и вывести ее на экран.

№2.

Используя оператор выбора, написать программу которая запрашивает у пользователя номер месяца и выводит на экран соответствующее название времени года. В случае если пользователь укажет недопустимое число, программа должна вывести сообщение “Ошибка вывода данных. Повторите ввод”.

№3.

Дан одномерный массив В из n вещественных элементов (n=10). Написать программу, которая вводит значения элементов этого массива с клавиатуры, выводит элементы массива одной строкой, находит наибольший элемент и выводит результат поиска на экран.

№4.

Задана некоторая строка S$. Дано число k и слово а$. Вставить в строку после k-ого символа слово а$, результат вывести на экран.

№5.

Составить программу, которая 100 элементов одномерного массива d заполняет квадратами первых ста целых чисел и выводит их на экран.

№6.

Ввести с клавиатуры значения n вещественных элементов массива с (n = 10), посчитать количество отрицательных и сумму положительных элементов. Результаты вывести на экран.

№7.

Написать программу, которая, используя генератор случайных величин выводит на экран пример на умножение 2-х случайных однозначных чисел, запрашивает ответ пользователя, проверяет его и выводит сообщение “ Правильно!” или “Вы ошиблись” и правильный ответ.

Ниже приведён рекомендуемый вид экрана во время работы программы:

Сколько будет 6*7 ?

Введите ответ и нажмите <Enter>

-> 56

Вы ошиблись. 6*7 = 42.

№8.

Написать программу, которая используя функции mod (остаток от деления) и div (целая часть от деления) находит сумму чисел любого трехзначного числа, число вводится с клавиатуры.

№9

Написать программу подсчета количества чисел кратных 7 на отрезке от 40 до 120. Результат вывести на экран.

0