elena-ruzadom
?>

Сместиться на точку сместиться на векторобсолютное смещениеотносительное смещениевыбери те пример : сместиться и смещение какое​

Информатика

Ответы

Mariya694

"...напечатает сначала 2, потом - 6" -- это значит a=2 и b=6?


про пятеричные записи ничего не понял...  :) И ИМХО к чему такие сложности? И для чего нам комп и программа? Я подправил исходную прогу чтобы она выдавала все числа подходящие по условию

var x,a,b: longint;


begin

   for var i := 999 DownTo 100 do begin

       a := 0;

       b := 1;

       x := i;

       while x>0 do begin

           if x mod 2 > 0 then a := a+1 else b := b+(x mod 5);

           x := x div 5;

       end;

       if (a = 2) and (b = 6) then writeln('x = ', i, ' a = ', a, ' b = ',b);

   end;

end.


прога проводит расчет для всх трехзначных чисел от 999 до 100

итого мы видим что максимальное подходящее число это 960

при необходимости прогу можно переделать чтобы она находила только максимальное число.

vasenkova1981

seconds = int(input())

minutes = 0

hours = 0

days = 0

dayName = str()

zero1 = str()

zero2 = str()

zero3 = str()

while seconds >= 60:

   seconds -= 60

   minutes += 1

while minutes >= 60:

   minutes -= 60

   hours += 1

while hours >= 24:

   hours -= 24

   days +=1

if(seconds / 10 < 1):

   zero3 = str(0)

if(minutes / 10 < 1):

   zero2 = str(0)

if(hours / 10 < 1):

   zero1 = str(0)

if(days % 1 == 1):

   dayName = "день,"

if(days % 10 > 1 and days % 10 < 5):

   dayName = "дня,"

if(days % 10 >= 5 or days == 0):

   dayName = "дней"

print(f"{days} {dayName}, {zero1}{hours}:{zero2}{minutes}:{zero3}{seconds}")

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Сместиться на точку сместиться на векторобсолютное смещениеотносительное смещениевыбери те пример : сместиться и смещение какое​
Ваше имя (никнейм)*
Email*
Комментарий*

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

Kochereva-Sergei
coffee2201
buyamel
tat122
admiralbany
Теплова
gk230650
ksenyabobrovich7214
myrisik2490
Евгеньевич Балиловна1398
Эссе на тему: "мой безопасный интернет"
LIN1022
Рощак_Ольга573
Natacha3636672
akuznecov8989
Minchenkova