1.Как я понял, последовательность вводится с клавиатуры и признак окончания ввода - 0. Значит имеет смысл использовать цикл Repeat 2. Вводимые числа - целые. После этих уточнений можно написать код на PascalABC:
//Вариант с циклом repeat var a, min: integer;
begin min := 555555; repeat readln(a); if ((a mod 10 = 5) or (a mod 10 = -5)) and (a < min) then min := a; until a = 0; writeln(min); end.
//вариант с циклом while var a, min: integer;
begin min := 555555; readln(a); while (a>0) or (a<0) do begin if ((a mod 10 = 5) or (a mod 10 = -5)) and (a < min) then min := a; readln(a); end; writeln(min); end.
1. 10 2. 12 3. 3 4. 22 5. 15 6. 34 7. 3 Часть 2 1. Var n:integer; Begin Write('Введи число '); Readln(n); if (n mod 2) = 0 then write(n,' чётное) else write(n,' нечётное); End. 2. Var a,b:integer; Begin Write('Введи числа '); Readln(a,b); if a>b then Begin Write('a = ',b*a,' b = ',a+b) else write('a = ',a+b,' b = ',a*b); End. 3. Var n:integer; Begin write('Введи двузначное число '); Readln(n); if ((n div 10) = 6) or ((n mod 10) = 6) then write('6 присутствует') else write('6 нет в этом числе'); End.
48
Объяснение:
Один символ = 1 байту. 1 байт = 8 битов, а в слове одеяло - 6 символов. Соответственно 6*8 = 48 битов.