В ПАСКАЛЕ!№1 С клавиатуры вводятся 10 натуральных двузначных чисел. Определить сколько среди них чисел, кратных 4; №2 С клавиатуры вводятся 10
5-9 класс
|
натуральных двузначных чисел. Определить
среднее арифметическое нечетных чисел;
№3 С клавиатуры вводятся 10 натуральных двузначных чисел. Определить
верно ли, что среди введенных чисел есть число, в котором первая цифра в два раза больше последней.
Var N,I,k,j,b,l:integer; Begin For I:=1 to 10 do begin Read(n); If n mod 4=0 then l:=l+1; If n mod 2<>0 then begin k:=k+n; j:=j+1; end; If ((n div 10)/(n mod 10))=2 then b:=1; End; Writeln('1-',l); writeln('2-',k/j); if b=1 then writeln('3-да') else writeln('3-нет'); End.
В одной программе допустимо все сделать?
Другие вопросы из категории
Читайте также
2, С клавиатуры вводятся 15 натуральных чисел. Подсчитать количество элементов, кратных 3 и 5.
3, С клавиатуры вводятся 10 натуральных чисел. Вычислить произведение чисел, больших 10, но меньших 20.
2, С клавиатуры вводятся 15 натуральных чисел. Подсчитать количество элементов, кратных 3 и 5.
3, С клавиатуры вводятся 10 натуральных чисел. Вычислить произведение чисел, больших 10, но меньших 20.
вводятся числа, последнее число "0", определить сколько в них положительных нечетных и найти сумму отрицательных.
Помогитеее!!
составить алгоритм с циклом с условием