Информатика | 10 - 11 классы
Ввести с клавиатуры 25 чисел.
Посчитать сколько нолей из этих 25 чисел.
Найти сумму чисел?
Найти сумму чисел.
Числа ввести с клавиатуры.
Написать программу.
Написать программу вычисляющую квадраты введены с клавиатуры чисел, пока не выйдет ноль?
Написать программу вычисляющую квадраты введены с клавиатуры чисел, пока не выйдет ноль!
Пожалуйста (паскаль).
Заполнить массив шестью целыми числами введёнными с клавиатуры , вывести его на экран и посчитать сред?
Заполнить массив шестью целыми числами введёнными с клавиатуры , вывести его на экран и посчитать сред.
Аримфетич.
Этих чисел.
Требутся ввести 20 чисел и посчитать сумму этих чисел?
Требутся ввести 20 чисел и посчитать сумму этих чисел.
Мы проходим сейчас язык паскалия и этт нужно написаьь в программе чтоб оеа работала.
Создать массив из пяти чисел вводом с клавиатуры и посчитать сумму элементов массива(в паскале)?
Создать массив из пяти чисел вводом с клавиатуры и посчитать сумму элементов массива(в паскале).
Помогите пожалуйста?
Помогите пожалуйста!
С клавиатуры вводится последовательность чисел, 0 конец последовательности.
Посчитать сколько введено четных чисел.
Нужно составить программу для Паскаль.
Ввести с клавиатуры 10 чисел, если квадрат числа меньше 100, напечатать число и его квадрат?
Ввести с клавиатуры 10 чисел, если квадрат числа меньше 100, напечатать число и его квадрат.
Дан массив целых чисел из N элементов, введенных с клавиатуры?
Дан массив целых чисел из N элементов, введенных с клавиатуры.
Посчитать сколько в нем отрицательных, положительных и нулевых чисел?
Ввести с клавиатуры 10 различных чисел найти сумму четных количество = 1 среднее арифметическое?
Ввести с клавиатуры 10 различных чисел найти сумму четных количество = 1 среднее арифметическое.
Ввести с клавиатуры n - любых чисел , найти количество отрицательных чисел( Паскаль )?
Ввести с клавиатуры n - любых чисел , найти количество отрицательных чисел( Паскаль ).
На этой странице вы найдете ответ на вопрос Ввести с клавиатуры 25 чисел?. Вопрос соответствует категории Информатика и уровню подготовки учащихся 10 - 11 классов классов. Если ответ полностью не удовлетворяет критериям поиска, ниже можно ознакомиться с вариантами ответов других посетителей страницы или обсудить с ними интересующую тему. Здесь также можно воспользоваться «умным поиском», который покажет аналогичные вопросы в этой категории. Если ни один из предложенных ответов не подходит, попробуйте самостоятельно сформулировать вопрос иначе, нажав кнопку вверху страницы.
Var i, k : integer ;
s : string ;
Begin for i : = 1 to 25 do begin readln(k) ; s : = s + inttostr(k) ; end ; k : = 0 ; for i : = 1 to length(s) do if s[i] = '0' then k : = k + 1 ; writeln('K = ', k) ;
End.