Информатика | 5 - 9 классы
Написать программу на языке паскаль.
С клавиатуры вводятся несколько натуральных целых чисел.
Необходимо чтобы вычислялось сколько введено чисел, сколько из них четных и общая сумма этих чисел.
Например : вводим числа 3425 - получает количество чисел - 4, количество четных чисел - 2, сумма чисел - 14.
1. Написать программу, которая вычисляет сумму первых N четных положительных чисел?
1. Написать программу, которая вычисляет сумму первых N четных положительных чисел.
Исходные данные (N – количество чисел) вводятся с клавиатуры.
Результаты работы программы записываются в файл Out.
Txt. 2.
Написать программу, которая вычисляет сумму первых N четных положительных чисел.
Исходные данные (N – количество чисел) вводятся из файла Input.
Txt. Результаты работы программы добавляются в файл Out.
Txt.
Вводится последовательность 10 чисел, программа должна вывести сумму всех четных чисел?
Вводится последовательность 10 чисел, программа должна вывести сумму всех четных чисел.
ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ!
Напишите программу, которая в последовательности целых чисел определяет их сумму и количество четных чисел, кратных 5?
Напишите программу, которая в последовательности целых чисел определяет их сумму и количество четных чисел, кратных 5.
Программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается число 0(0 - признак окончания ввода, не входит в последовательность СРОЧНО, ПОЖАЛУЙСТА, НА ПАСКАЛЕ.
Напишите программу, которая в последовательности целых чисел определяет их сумму и количество четных чисел, кратных 5?
Напишите программу, которая в последовательности целых чисел определяет их сумму и количество четных чисел, кратных 5.
Программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается число 0(0 - признак окончания ввода, не входит в последовательность СРОЧНО, ПОЖАЛУЙСТА, НА ПАСКАЛЕ.
ОЧЕНЬ СРОЧНО.
Напишите программу, которая в последовательности целых чисел определяет их сумму и количество четных чисел, кратных 5?
Напишите программу, которая в последовательности целых чисел определяет их сумму и количество четных чисел, кратных 5.
Программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается число 0(0 - признак окончания ввода, не входит в последовательность
СРОЧНО, ПОЖАЛУЙСТА, НА ПАСКАЛЕ.
Написать программу, которая вычисляет сумму первых n целых положительных четных чисел?
Написать программу, которая вычисляет сумму первых n целых положительных четных чисел.
Количество суммируемых чисел должно вводится во время работы программы.
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Ниже приведен рекомендуемый вид экрана во время работы программы.
Вычисление суммы четных положительных чисел.
Введите количество суммируемых чисел и нажмите - > 12 Сумма первых 12 положительных четных чисел равна 156.
Для вводимых с клавиатуры чисел определить количество четных чисел исумму нечетных чисел?
Для вводимых с клавиатуры чисел определить количество четных чисел и
сумму нечетных чисел.
Ввод чисел прекращается, когда пользователь вводит
цифру 0.
С клавиатуры вводится произвольная последовательность положительных чисел, за которой следует 0?
С клавиатуры вводится произвольная последовательность положительных чисел, за которой следует 0.
Определить количество четных чисел.
Напишите на языке паскаль.
С клавиатуры вводится произвольная последовательность положительных чисел, за которой следует 0?
С клавиатуры вводится произвольная последовательность положительных чисел, за которой следует 0.
Определить количество четных чисел.
Напишите на языке Паскаль.
Ввод чисел от 0 до 5000 Найти количество четных и не четных чисел?
Ввод чисел от 0 до 5000 Найти количество четных и не четных чисел.
На этой странице сайта, в категории Информатика размещен ответ на вопрос Написать программу на языке паскаль?. По уровню сложности вопрос рассчитан на учащихся 5 - 9 классов. Чтобы получить дополнительную информацию по интересующей теме, воспользуйтесь автоматическим поиском в этой же категории, чтобы ознакомиться с ответами на похожие вопросы. В верхней части страницы расположена кнопка, с помощью которой можно сформулировать новый вопрос, который наиболее полно отвечает критериям поиска. Удобный интерфейс позволяет обсудить интересующую тему с посетителями в комментариях.
Var n, m, p, k, sum, x : integer ; s : string ; c, i : byte ;
begin write('Число : ') ; read(n) ; m : = n ; k : = 0 ; while m 0 do begin p : = m mod 10 ; K : = K + 1 ; m : = m div 10 ; end ; Str(N, s) ; c : = 0 ; for i : = 1 to Length(s) do if s[i] in ['0', '2', '4', '6', '8'] then Inc(c) ; x : = n ; sum : = 0 ; while (x 0 ) do begin sum : = sum + (x mod 10) ; x : = x div 10 ; end ; writeln('Количество чисел : ', k) ; writeln('Количество четных чисел : ', c) ; writeln('Cумма чисел : ', sum) ;
end.