помогите ребятки ( задание 6 и 11)
5-9 класс
|
6) var a,i,k,N,a1,a2,a3: integer;
begin
writeln('Введите количество чисел'); readln(N);
k:=0;
for i:=1 to N do begin
writeln('Введите число'); readln(a);
a1:=a div 100; a3:=a mod 10; a2:=(a-a1*100-a3) div 10;
if (a1<a2)and(a2<a3) then k:=k+1;
end;
writeln('Ответ: ', k);
readln
end.
11)
Другие вопросы из категории
Читайте также
помогите с заданием ) 2 класс !!!!!! ПОЖАЛУЙСТА
обведите синим два слова с одинаковым мешком букв:
1) мандарин
2)командир
3)светофор
4)помидор
5)пудель
:)спаниель
7)апельсин
8)кардамон
9)мойдодыр
и пожалуйста обьясните как это делать плиииз :*
элементов массива.
3)задан массив из 9 целых чисел.Вывести на экран чётные элементы
вычислить периметр.
2) Последовательно вводится N целых чисел найти кол-во равных нулю.
помогите очень нужно!
1. Задан массив целых чисел. Вычислить суммы нечетных и отрицательных элементов.
2.Задана матрица целых чисел. Вычислить сумму элементов расположенных на главной и побочной диагоналях.
И это на с++