Информатика | 10 - 11 классы
В числовую переменную последовательно вводятся целые числа, не равные нулю.
Кол - во вводимых чисел n неизвестно.
Найти сумму тех чисел, в которых встречаются ровно две цифры 5.
(в паскале написать программу).
1. Дана непустая последовательность целых чисел, оканчивающаяся нулем?
1. Дана непустая последовательность целых чисел, оканчивающаяся нулем.
Найти сумму всех чисел последовательности.
Паскаль.
Напишите программу, которая в последовательности целых чисел определяет их сумму и количество четных чисел, кратных 5?
Напишите программу, которая в последовательности целых чисел определяет их сумму и количество четных чисел, кратных 5.
Программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается число 0(0 - признак окончания ввода, не входит в последовательность СРОЧНО, ПОЖАЛУЙСТА, НА ПАСКАЛЕ.
Напишите программу, которая в последовательности целых чисел определяет их сумму и количество четных чисел, кратных 5?
Напишите программу, которая в последовательности целых чисел определяет их сумму и количество четных чисел, кратных 5.
Программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается число 0(0 - признак окончания ввода, не входит в последовательность СРОЧНО, ПОЖАЛУЙСТА, НА ПАСКАЛЕ.
ОЧЕНЬ СРОЧНО.
Напишите программу, которая в последовательности целых чисел определяет их сумму и количество четных чисел, кратных 5?
Напишите программу, которая в последовательности целых чисел определяет их сумму и количество четных чисел, кратных 5.
Программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается число 0(0 - признак окончания ввода, не входит в последовательность
СРОЧНО, ПОЖАЛУЙСТА, НА ПАСКАЛЕ.
Напишите программу которая вводит последовательность целых чисел, заканчивающуюся нулем, и определяет кол - во четных положительных чисел в этой последовательности(паскаль, питон)?
Напишите программу которая вводит последовательность целых чисел, заканчивающуюся нулем, и определяет кол - во четных положительных чисел в этой последовательности(паскаль, питон).
1. Написать программу, которая выводит количество нулей во вводимой с клавиатуры последовательности из 100 целых чисел?
1. Написать программу, которая выводит количество нулей во вводимой с клавиатуры последовательности из 100 целых чисел.
Напишите программу которая вводит последовательность целых чисел, заканчивающуюся нулем, и определяет кол - во четных положительных чисел в этой последовательности(паскаль)?
Напишите программу которая вводит последовательность целых чисел, заканчивающуюся нулем, и определяет кол - во четных положительных чисел в этой последовательности(паскаль).
Срочно!
Пожалуйста!
1.
Помогите пожалуйстаСоставить программу для последовательного произведения вводимых с клавиатуры целых чисел , предусмотреть выход из произведения при вводе нуля?
Помогите пожалуйста
Составить программу для последовательного произведения вводимых с клавиатуры целых чисел , предусмотреть выход из произведения при вводе нуля.
Помогите пожалуйстаСоставить программу для последовательного произведения вводимых с клавиатуры целых чисел , предусмотреть выход из произведения при вводе нуля?
Помогите пожалуйста
Составить программу для последовательного произведения вводимых с клавиатуры целых чисел , предусмотреть выход из произведения при вводе нуля.
Язык Паскаль.
ПОМОГИТЕ ПОЖАЛУЙСТА?
ПОМОГИТЕ ПОЖАЛУЙСТА!
ПАСКАЛЬ!
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, последняя цифра которых равна А и все число делится на В.
Последовательность чисел заканчивается числом 0.
Числа А и В вводятся до цикла.
(должен быть цикл while).
Вы зашли на страницу вопроса В числовую переменную последовательно вводятся целые числа, не равные нулю?, который относится к категории Информатика. По уровню сложности вопрос соответствует учебной программе для учащихся 10 - 11 классов. В этой же категории вы найдете ответ и на другие, похожие вопросы по теме, найти который можно с помощью автоматической системы «умный поиск». Интересную информацию можно найти в комментариях-ответах пользователей, с которыми есть обратная связь для обсуждения темы. Если предложенные варианты ответов не удовлетворяют, создайте свой вариант запроса в верхней строке.
= = = = = = = = = = 1 вариант через строку = = = = = = = = = =
var n, a, k, sum, i, j : integer ; s : string ;
begin sum : = 0 ; write ('Введите количество чисел : ') ; readln (n) ; for i : = 1 to n do begin write ('Введите число : ') ; readln (a) ; Str(a, s) ; k : = 0 ; for j : = 1 to length(s) do if s[j] = '5' then k : = k + 1 ; if k = 2 then sum : = sum + a ; end ; writeln ('Sum = ', sum) ;
end.
= = = = = = = = = = 2 вариант через div и mod = = = = = = = = = =
var n, a, x, k, sum, i : integer ;
begin sum : = 0 ; write ('Введите количество чисел : ') ; readln (n) ; for i : = 1 to n do begin write ('Введите число : ') ; readln (a) ; x : = abs(a) ; k : = 0 ; while x>0 do begin if x mod 10 = 5 then k : = k + 1 ; x : = x div 10 ; end ; if k = 2 then sum : = sum + a ; end ; writeln ('Sum = ', sum) ;
end.
= = = = = = = = = = пример результата : = = = = = = = = = =
Введите количество чисел : 3
Введите число : 550001
Введите число : - 550000
Введите число : 123456
Sum = 1.
/ / PascalABC.
NET версия 3.
2, сборка 1367
begin var sum : = 0 ; for var i : = 1 to ReadInteger('n = ') do begin var num : = ReadInteger('Введите число = ') ; if num.
ToString().
ToCharArray.
Count(c - > c = '5') = 2 then sum + = num ; end ; Writeln(sum) ;
end.