Предмет: Информатика,
автор: fascinated
Задача на Паскале
Вводится последовательность натуральных чисел. Ноль – признак конца. Подсчитайте, сколько раз в этой последовательности встречается максимальное кратное семи число, и выдайте полученный результат.
Ответы
Автор ответа:
0
// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
var
n,k,nmax:integer;
begin
nmax:=-1;
repeat
Read(n);
if n<>0 then begin
if n mod 7 = 0 then begin
if n>nmax then begin k:=1; nmax:=n end
else
if n=nmax then Inc(k)
end
end
until n=0;
Writeln('Число ',nmax,' встретилось ',k,' раз(а)')
end.
Тестовое решение:
8 11 5 7 4 23 14 82 51 14 23 17 0
Число 14 встретилось 2 раз(а)
var
n,k,nmax:integer;
begin
nmax:=-1;
repeat
Read(n);
if n<>0 then begin
if n mod 7 = 0 then begin
if n>nmax then begin k:=1; nmax:=n end
else
if n=nmax then Inc(k)
end
end
until n=0;
Writeln('Число ',nmax,' встретилось ',k,' раз(а)')
end.
Тестовое решение:
8 11 5 7 4 23 14 82 51 14 23 17 0
Число 14 встретилось 2 раз(а)
Похожие вопросы
Предмет: Английский язык,
автор: dder9618
Предмет: Химия,
автор: Lolochka229
Предмет: Математика,
автор: sofiadura75
Предмет: История,
автор: boyarskikh1960
Предмет: Обществознание,
автор: Опа10чирик