(ИНФОРМАТИКА|ПАСКАЛЬ) Доля 50 чисел ,от 0 до 100 .
5-9 класс
|
определить сколько среди них отличаются от последнего числа
var
a : array [1..50] of integer; // заранее заданный массив с числами от 0 до 100
n,i : integer;
begin
n:=0;
for i:=1 to 49 do
if a[i] <> a[50]
then
n:= n+1;
writeln(n);
end
получается 50 любых чисел в диапазоне от 0 до 100
они по сути заданы зарание и могут повторяться
программу можешь написать ,а то с массивами я как-то не очень
Другие вопросы из категории
Исходные данные: А=9.61 В=0.04
Пример верного решения:
новые значения переменных:
А=0.04 В=9.61
Помогите плиз
Читайте также
2)Даны натуральные числа от 1 до 150. Найти сумму тех из них, которые делятся на 5 или на 7.
3)Напечатать те из чисел от 10 до 50, которые делятся на 4, но не делятся на 6
4)Найти произведение нечетных чисел от 10 до 50, кратных 13
кто может сделать в Паскале или просто решить?
2)Написать программу которая бы выводила на экран произведение нечетных чисел от 10 до 20.
натуральные числа A , B, где B>A. Напишите программу последовательность натуральных чисел от A до B, включающая A и B.
Пожалуйста помогите !!!!!!!!
2) составить программу нахождения чисел от 10 до 99 сумма квадратов которых кратна 13 (mod=0)
3) найти сумму всех целых нечетных чисел меньших 100
4) найти сумму чисел в диапазоне от A до B кратных четырём. Числа А и В вводятся с клавы.
5) Найти все натуральный делители натурального числа n
Входные данные: ввести два целых числа А,В (1 <=А,В<=10).
Входные данные: вывести произведение всех целых чисел от А до В включительно.