Какое число будет напечатано в результате выполнения программы: var i, k: integer; function f(x: integer): integer; var m: integer; begin if x < 10 then f : = x else begin m : = f(x div 10); if m < x mod 10 then f : = x mod 10 else f : = m; end; end; begin k : = 0; for i : = 1000 to 9999 do if f(i mod 100) = 1 then if f(i div 100) = f(i mod 100) then k : = k + 1; writeln(k); end.

6

компилятор паскаля онлайн в : )

using System;

using System.Collections.Generic;

using System.Linq;

using System.Text;

using System.Threading.Tasks;

namespace ConsoleApp1

{

   class Program

   {

       static void Main(string[] args)

       {

           int N = 45;

           for (int i = 0; i < N; i++)

           {

               Console.WriteLine("Я молодец!");

           }

       }

   }

}

Объяснение:

Основной код вот:

int N = 45;  // Кол-во раз

for (int i = 0; i < N; i++)

{

       Console.WriteLine("Я молодец!");

}

  Цикл - это замечательное изобретение, которое, в сущности, и делает компьютеры такими ценными. Он позволяет многократно повторить любую часть программы. Цикл не может выполняться вечно, он заканчивается по какому-либо условию. Проверка этого условия может производиться в начале каждого повторяющегося шага, в этом случае цикл называется ПОКА. При проверке условия в конце каждого шага цикл называется ДО. Разновидностью цикла ДО является цикл ПЕРЕСЧЕТ.

10.1.Оператор цикла WHILE (цикл ПОКА).

  Формат оператора:
  WHILE логическое выражение DO;

  Оператор будет повторятся пока истинно логическое выражение. Перед каждым повторением оператора значение логического выражения вычисляется заново. Если необходимо повторить несколько операторов, их следует объединить в составной оператор, т.е. заключить в операторные скобки begin ... end. Этот цикл может не выполниться ни разу, если условие при входе в него оказалось ложным. Таким образом, цикл ПОКА содержит условие повторения цикла.

Пример 1. Программа подсчета суммы S первых 1000 членов гармонического ряда 1+1/2+1/3+1/4+...1/N.

Program Summa;
Var S:real;
    N:integer;
Begin
  S:=0;N:=0;
  While n<1000 do 
  Begin
    N:=n+1;
    S:=s+1/n
  End;
  Writeln(s);
  Readln
End.