Дано 80 вещественных чисел?

Stories228 28 окт. 2020 г., 11:55:53

Var a : array [1.

80] of real ; n : byte : = 1 ;

begin for i : integer : = 1 to 80 do begin a[i] : = trunc(random() * 100) / 100 ; write(a[i], ' ') ; end ; for i : integer : = 1 to 80 do if (abs(a[i] - round(a[i])) < ; abs(a[n] - round(a[n]))) then n : = i ; writeln() ; writeln(n) ;

end.

SOkrat71 16 окт. 2020 г., 06:16:05 | 10 - 11 классы

Нужно решить на паскале (ABC) Дано предложение, в котором имеется несколько букв е?

Нужно решить на паскале (ABC) Дано предложение, в котором имеется несколько букв е.

Найти : а) порядковый номер первой из них ; б) порядковый номер последней из них.

Спасибо.

Лерасингх 25 мая 2020 г., 18:55:30 | 5 - 9 классы

Дано четыре вещественных числа найти сумму тех чисел которые больше пяти на Паскаль?

Дано четыре вещественных числа найти сумму тех чисел которые больше пяти на Паскаль.

Bikovaanastasi 20 мая 2020 г., 02:58:53 | 5 - 9 классы

Решите задачу по Free Pascal IDE?

Решите задачу по Free Pascal IDE.

С клавиатуры вводится два вещественных числа.

Найти целую часть от произведения двух вещественных чисел.

Дашутики 8 авг. 2020 г., 13:34:08 | 5 - 9 классы

ПАСКАЛЬ, ПОМОГИТЕ ПОЖАЛУЙСТАДаны натуральное число n и вещественные числа a1, a2, ?

ПАСКАЛЬ, ПОМОГИТЕ ПОЖАЛУЙСТА

Даны натуральное число n и вещественные числа a1, a2, .

, an.

Определить среднее арифметическое вещественных чисел.

ПАСКАЛЬ, ПОМОГИТЕ ПОЖАЛУЙСТА.

ТТБ 6 янв. 2020 г., 17:46:46 | 10 - 11 классы

Найти среднее значение среди 10 вводимых с клавиатуры чисел (вещественные числа) помогите пожалуйста?

Найти среднее значение среди 10 вводимых с клавиатуры чисел (вещественные числа) помогите пожалуйста.

Tutukin 27 июн. 2020 г., 18:17:30 | 10 - 11 классы

Даны три целых числа, одно из которых отлично от двух других, равных между собой?

Даны три целых числа, одно из которых отлично от двух других, равных между собой.

Определить порядковый номер числа, отличного от остальных.

Лалалошкамача 6 мая 2020 г., 22:26:37 | 10 - 11 классы

Дано вещественное число А и целое N (> ; 0)?

Дано вещественное число А и целое N (> ; 0).

Вывести все целые степени числа А от 1 до N решить в С + +.

Loloshechka 9 дек. 2020 г., 16:07:01 | 10 - 11 классы

Дан одномерный массив, который содержит не более 50 вещественных чисел?

Дан одномерный массив, который содержит не более 50 вещественных чисел.

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

Sergey572 15 апр. 2020 г., 12:10:30 | 10 - 11 классы

Дан массив из 10 целых чисел заполненный случайными числами из интервала [ - 15 ; 15]?

Дан массив из 10 целых чисел заполненный случайными числами из интервала [ - 15 ; 15].

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

Помогите пожалуйста с :

17082 30 дек. 2020 г., 03:48:10 | 5 - 9 классы

Дано два вещественных числа A и B?

Дано два вещественных числа A и B.

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