Pascalabc.net, обязательно через массивы, . напишите программу, которая в последовательности - id19985520230222 от milla25 22.02.2023 10:41

Question

Информатика: Pascalabc.net, обязательно через массивы, . напишите программу, ко­то­рая в по­сле­до­ва­тель­но­сти на­ту­раль­ных чисел опре­де­ля­ет мак­си­маль­ное число, крат­ное 4. про­грам­ма по­лу­ча­ет на вход ко­ли­че­ство чисел в последовательности, а затем сами числа. в по­сле­до­ва­тель­но­сти все­гда име­ет­ся число, крат­ное 4. ко­ли­че­ство чисел не пре­вы­ша­ет 1000. введённые числа не пре­вы­ша­ют 30 000. про­грам­ма долж­на вы­ве­сти одно число — максимальное число, крат­ное 4.

milla25 · Accepted Answer

Var A,R:integer; Begin WriteLn( Выберите тип единицы измерения времени: 1 - секунда, 2 - минута, 3 - час, 4 - сутки, 0 - выход. ); ReadLn(R); While R 0 do    Begin    Write( Введите значение этой единицы времени: );    ReadLn(A);    Case R of    1:WriteLn(A, сек = ,(A/60):0:3, мин = ,(A/3600):0:3, ч = ,(A/86400):0:3, сут );    2:WriteLn(A, мин = ,(A/60):0:3, ч = ,(A/1440):0:3, сут = ,A*60, сек );    3:WriteLn(A, ч = ,(A/24):0:3, сут = ,A*3600, сек = ,A*60, мин );    4:WriteLn(A, сут = ,A*24, ч =...

MOGZ ответил