Написать подпрограмму, которая ищет а четырехзначном числе минимальную четную цифру. если таких цифр нет, то вернуть -1. требования к подпрограмме: процедура должна называться "search" и иметь два параметра: первый - четырехзначное натуральное число. второй - результат работы подпрограммы. (паскаль абц (pascal abc))

Ответы

Ответ дал: Настя12111978

Procedure search(n: integer; var mineven: integer); begin mineven : = 10; while n > 0 do begin var last : = n mod 10; if (last mod 2 = 0) and (last < mineven) then mineven : = last; n : = n div 10; end; if mineven = 10 then mineven : = -1; end;

Спасибо

Ответ дал: Шері

Program prog; function search(n: integer): integer; var input: array[1..4] of integer; even: array[1..4] of integer; atlestone: boolean; begin input[1] : = n div 1000; input[2] : = n mod 1000 div 100; input[3] : = n mod 100 div 10; input[4] : = n mod 10; if (input[1] mod 2 = 0) begin even[1] : = input[1]; atlestone : = true; end; if (input[2] mod 2 = 0) begin even[2] : = input[2]; atlestone : = true; end; if (input[3] mod 2 = 0) begin even[3] : = input[3]; atlestone : = true; end; if (input[4] mod 2 = 0) begin even[4] : = input[4]; atlestone : = true; end; if atlestone = true then search : = low(even) else search : = -1; end;

Спасибо

Ответ дал: Гость

сначала нужно переправить козу, затем вернуться за капустой, переправить капусту и забрать козу. потом переправить волка, ну а потом уже козу.

Ответ дал: Гость

в некотором царстве, в некотором государстве жила-была… нет! так все сказки начинаются. а моя сказка начинается по-другому. на далёком острове среди бушующего океана информации раскинулось государство технология. царствовала там мудрая информатика. и были у неё подданные: микросхемы, мониторы, процессоры, клавиатуры, компьютерные мыши и многие другие жители. захотела информатика общаться с другими государствами и построила интернет-порталы. узнали о государстве технология на близких островах и далёких землях. царица информатика была щедрой правительницей. она приходила на всем, кто её об этом просил. все радовались неоценимым подаркам информатики. но один злой правитель захотел всё могущество и знание информатики прибрать к своим рукам. однако ему не удалось заполучить её знания, поэтому он решил причинить информатике вред. и начал он создавать армию вирусов. вирусы были коварные. под видом добрых намерений они пробирались в дома к программам и портили их. информатика и не догадывалась, какая угроза нависла над её жителями. однажды она зашла к windows xp, а он оказался испорченным и не узнал её. информатика рассказала, кто она такая, и попросила вспомнить, кто его испортил. windows вспомнил и сказал об этом информатике. информатика созвала совет старейшин и рассказала им о проблеме. посовещавшись, они вместе начали создавать антивирусы. получилось целое войско: dr. web, kaspersky, avira, panda, nod32 и другие. когда следующая партия вирусов прошла через интернет, на них набросились антивирусы и связали их. подлые враги рассказали, кто их сделал. злого правителя поймали, посадили в клетку. царица информатика не закрыла интернет, а только расставила на границах стражу от вирусов. так и по сей день правит информатика в своём государстве и делится своими знаниями с добрыми людьми

Ответы

Другие вопросы по: Информатика

Похожие вопросы

Популярные вопросы

Больше вопросов по предмету: Информатика

Случайные вопросы

Популярные вопросы