Значение переменной p при n=5 после выполнения программы programmtest; var p, i, n: integer; begin write('введите цельное n=') readln(n); p: =1 for i: =1 to n do p: =p*i; writeln(n, '=', p) end

120
Мы 5 раз умножаем p*i (i это количество раз; p в начале равен 1)
p=1*1*2*3*4*5

Использовать Чертежник
алг
нач
  опустить перо
  М;И;Р
  сместиться на вектор(1,0)
  Р;И;М
  сместиться на вектор(1,0)
  М;И;М
кон

алг Р
нач
  опустить перо
  сместиться на вектор(0,3)
  сместиться на вектор(1,0)
  сместиться на вектор(0,-1)
  сместиться на вектор(-1,-0.5)
  поднять перо
  сместиться на вектор(2,-1.5)
кон

алг И
нач
  опустить перо
  сместиться на вектор(0,3)
  сместиться на вектор(0,-3)
  сместиться на вектор(1.5,3)
  сместиться на вектор(0,-3)
  поднять перо
  сместиться на вектор(1,0)
кон

алг М
нач
  опустить перо
  сместиться на вектор(0.75,3)
  сместиться на вектор(0.75,-3)
  сместиться на вектор(0.75,3)
  сместиться на вектор(0.75,-3)
  поднять перо
  сместиться на вектор(1,0)
кон

Using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
namespace СиШарп
{
    class Program
    {
        static void Main(string[] args)
        {
            Console.Write("Введите натуральное число: ");
            int C = int.Parse(Console.ReadLine());
            Console.Write("A = ");
            int A = int.Parse(Console.ReadLine());
            while (C > 0)
            {
                if (C % 10 == A) A = -1;
                C /= 10;
            }
            Console.WriteLine((A > -1?"Верно":"Не верно"));
            Console.ReadKey();
        }
    }
}