Дана последовательность чисел, которая оканчивается на 0. найдите наименьшее число, которое оканчивается на 5. заранее ) надо, сразу говорю) программа: pascal abc . net

216

221

Посмотреть ответы 2

Ответы на вопрос:

Aki0510

Информатика

4,4(11 оценок)

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.