1) Определить, является ли заданное целое число а двузначным числом?

Nata1201 14 апр. 2020 г., 04:16:59

1)

program z1 ;

Var a : integer ;

Begin read(a) ;

if (a> ; 9) and (a< ; 100) then writeln(a, ' - двузначное число')

else writeln(a, ' - не является двузначным числом') ;

end.

2)

program z2 ;

Var i : integer ;

Begin

for i : = 1 to 9 do if (i mod 2 = 1) then writeln(i, ', ') ;

end.

2 способ :

program z2 ;

Var i : integer ;

Begin

i : = 1 ;

while i< ; = 9 do begin write(i, ', ') ; i : = i + 2 ; end ;

end.

3)

program z3 ;

Var i, n : integer ; S : real ; a : array[1.

100] of real ;

Begin

write('Введите количество элементов массива : ') ;

readln(n) ;

write('Введите элементы массива : ') ;

for i : = 1 to n do read(a[i]) ;

i : = 1 ; S : = 0 ;

while i< ; = n do begin S : = S + a[i] ; i : = i + 2 ; end ; write('S = ', S) ;

end.

Hatashaprudhik 4 авг. 2020 г., 01:37:25 | 10 - 11 классы

Дан целочисленный одномерный массив из n - элементов?

Дан целочисленный одномерный массив из n - элементов.

Вывести на экран четные элементы стоящие на нечетных массивов через паскаль.

Podgornyyn 25 нояб. 2020 г., 03:16:45 | 10 - 11 классы

Вводится целое положительное число?

Вводится целое положительное число.

Найти наименьшую нечетную цифру в числе.

Если в числе нет нечетных цифр, то вывести надпись "В числе нет нечетных цифр".

Yanovskyshura 23 нояб. 2020 г., 23:24:06 | 5 - 9 классы

Паскаль, цикл с предусловием while?

Паскаль, цикл с предусловием while.

Вводится целое положительное число.

Найти наименьшую нечетную цифру в числе.

Если в числе нет нечетных цифр, то вывести надпись "В числе нет нечетных цифр".

Диана200356 19 янв. 2020 г., 19:36:48 | 5 - 9 классы

Одномерные массивы?

Одномерные массивы.

Дан массив натуральных чисел, состоящий из n элементов.

Найти сумму элементов массива, кратных данному числу К.

(паскаль).

Azhalmasheva 5 мар. 2020 г., 20:41:04 | 10 - 11 классы

Задан массив A из 15 целых чисел найти сумму четных и сумму нечетных элементов массива A, определить какая больше из них по модулю?

Задан массив A из 15 целых чисел найти сумму четных и сумму нечетных элементов массива A, определить какая больше из них по модулю.

Змея22 10 нояб. 2020 г., 16:07:27 | 10 - 11 классы

Определить, является ли сумма элементов второго столбца массива нечетным числом?

Определить, является ли сумма элементов второго столбца массива нечетным числом.

Паскаль.

Aylovat40 16 окт. 2020 г., 08:55:54 | 10 - 11 классы

Дан одномерный массив из 12 чисел?

Дан одномерный массив из 12 чисел.

Элементами массива являются целые числа.

Найти максимальный элемент указанного массива.

Kagazbaeva 5 мар. 2020 г., 11:06:41 | 10 - 11 классы

(Pascal) Дан двухмерный массив целых чисел?

(Pascal) Дан двухмерный массив целых чисел.

Определить является ли сумма элементов первого столбца нечетным числом.

Аааааа53 6 дек. 2020 г., 11:35:41 | 10 - 11 классы

1. Заполнить одномерный массив B вещественными числами из промежутка от - 20 до 5?

1. Заполнить одномерный массив B вещественными числами из промежутка от - 20 до 5.

Найти сумму и среднее положительных и четных элементов массива.

Найти произведение отрицательных элементов массива.

Найти минимальный элемент массива.

Отсортировать массив по убыванию.

2. Заполнить одномерный массив А целыми числами из промежутка от - 12 до 7.

Вывести элементы массива, значения которых больше заданного числа Н и кратны числу К.

Найти максимальный элемент массива.

Отсортировать массив по возрастанию.

На паскале.

DeadGirl5 6 сент. 2020 г., 01:59:41 | 10 - 11 классы

Turbo Pascal * * * * (Дан одномерный числовой массив?

Turbo Pascal * * * * (Дан одномерный числовой массив.

Определить произведение элементов массива, расположенных между максимальным и «центральным» элементами массива (предполагается, что число элементов – нечетное и максимальный единственный).