Год на планете Z делится на месяцы. Все месяцы длятся по M дней. От начала года дней. Запишите дату так, как это делают на Земле.

9.11 — означает, что идет 9-ый день 11-ого года.

Выделите операторы программы для решения этой задачи.

Program Ufo;

Var M, D : integer; // Дано

month, day: integer; // Найти

Begin

[ Readln / Writeln / Integer] (M, D);

month := [ D mod M / D mod M / D / M ];

day := [ D mod M / D div M / M mod D / M div D];

[ writeln / readln] ( [ day / D / month / M] ,’.’ , [ month / day / D / M] );

End.

t = int(input())

if t <= 3:

  print("GREEN")

elif t <= 5:

  print("RED")

elif t <= 8:

  print("GREEN")

elif t <= 10:

  print("RED")

elif t <= 13:

  print("GREEN")

elif t <= 15:

  print("GREEN")

elif t <= 18:

  print("RED")

elif t <= 20:

  print("GREEN")

elif t <= 23:

  print("RED")

elif t <= 25:

  print("GREEN")

elif t <= 28:

  print("RED")

elif t <= 30:

  print("GREEN")

elif t <= 33:

  print("RED")

elif t <= 35:

  print("GREEN")

elif t <= 38:

  print("RED")

elif t <= 40:

  print("GREEN")

elif t <= 43:

  print("RED")

elif t <= 45:

  print("GREEN")

elif t <= 48:

  print("RED")

elif t <= 50:

  print("GREEN")

elif t <= 53:

  print("RED")

elif t <= 55:

  print("GREEN")

elif t <= 58:

  print("RED")

elif t <= 60:

  print("GREEN")

Program CountA;

Uses Crt;

var a,n,x,i:integer;
begin

clrscr;  // очищаем экран
write('Введите число n:');
readln(n); // ввод данных

write('Введите цифру а: ');
readln(a);  // ввод данных
x:=1; i:=0;  i-счётчик цифр а  
while (n<>0) do // Пока n не стало равным нулю
begin
    x:=n mod 10; // в x остаток от деления на 10 т.е -отдельная цифра числа  
   if (a=x) then i:=i+1; если есть совпадение то i увеличиваем на 1 
   n:=n div 10; переходим к следующему разряду числа (сотни десятки единицы)
 end;
writeln('Цифра ',а,' Встречается в данном числе-', i, ' раз(а)');
readkey; // Пауза до нажатия на любую клавишу

end.