:3 в числовую переменную последовательно вводятся целые числа, не равные нулю. кол-во вводимых чисел n неизвестно. найти сумму тех чисел, в которых встречаются ровно две цифры 5.(в паскале написать программу)
// PascalABC.NET 3.2, сборка 1367 от 20.12.2016 // Внимание! Если программа не работает, обновите версию!
begin var t:integer; var k:=0; repeat Read(t); if t.ToString.Where(c->c='5').Count=2 then k+=1 until t=0; Writeln('Количество чисел с двумя пятерками равно ',k) end.
1) Не важно, какой оно длины. Если оно заканчивается чётной цифрой, то оно чётно, обратное тоже верно. Тупо проверяем число на чётность:
ЕСЛИ число ОСТАТОК 2 = 0 ТО Вывод.Цепь("Верно.") ИНАЧЕ Вывод.Цепь("Не верно.") КОН
2) ПЕР массив: РЯД N ИЗ ЦЕЛ, сч: ЦЕЛ; УКАЗ ОТ сч := 0 ДО N - 1 ВЫП ЕСЛИ массив[сч] < 0 ТО массив[сч] := -массив[сч] КОН КОН
3) ПЕР массив: РЯД N ИЗ ЦЕЛ, сч, мин_зн, мин_ном: ЦЕЛ; УКАЗ мин_зн := массив[0]; мин_ном := 0; ОТ сч := 1 ДО N - 1 ВЫП ЕСЛИ массив[сч] > мин_зн ТО мин_зн := массив[сч]; мин_ном := сч КОН КОН
Магистрально-модульный принцип построения компьютера
В основу архитектуры современных персональных компьютеров положен магистрально-модульный принцип. Модульный принцип позволяет потребителю самому комплектовать нужную ему конфигурацию компьютера и производить при необходимости ее модернизацию. Модульная организация компьютера опирается на магистральный (шинный) принцип обмена информацией между устройствами. Магистраль (системная шина) включает в себя три многоразрядные шины: шину данных, шину адреса и шину управления, которые представляют собой многопроводные линии. К магистрали подключаются процессор и оперативная память, а также периферийные устройства ввода, вывода и хранения информации, которые обмениваются информацией на машинном языке (последовательностями нулей и единиц в форме электрических импульсов) .
// Внимание! Если программа не работает, обновите версию!
begin
var t:integer;
var k:=0;
repeat
Read(t);
if t.ToString.Where(c->c='5').Count=2 then k+=1
until t=0;
Writeln('Количество чисел с двумя пятерками равно ',k)
end.