using System;
using static System.Console;
namespace ConsoleApp7
{
class Program
{
static bool isprost(int n)
{
bool t = true;
for (int i = 2; i <= n / 2; i++)
if (n % i == 0)
return !t;
return t;
}
static void Main(string[] args)
{
Write("Введите кол-во чисел n=");
int x, n = int.Parse(ReadLine());
Write("случайные простые числа по данной формуле из [0;28]: ");
Random r=new Random();
for (int i=1;i<=n;)
{
x = r.Next(0, 28);
if (isprost(x))
{
Write((x*x*2+29).ToString() + " ");
i++;
}
}
ReadKey();
}
}
}
В данной программе используется цикл с известным числом повторений
Объяснение:
Вот код этой программы:
uses DrawMan; //подключаем модуль с чертежником
var i: integer; //объявляем переменную-счетчик для цикла
begin
Task('c1'); //вызываем задание
ToPoint(1, 3); //перемещаемся к точке с координатами (1, 3)
for i := 1 to 18 do //запускаем цикл
begin
PenDown; //опускаем перо
OnVector(0, -1); //перемещаемся на вектор (0, -1)
OnVector(1, 1); //перемещаемся на вектор (1, 1)
end;
PenUp; //поднимаем перо
ToPoint(0, 0); //перемещаемся к точке с координатами (0, 0)
end.
Циклы в "Паскале" - это алгоритм действий который выполняется определенное количество раз. Здесь используется цикл "for", для использования которого необходимо указать число итераций цикла.
Переменная i изменяется от 1 до 18, => вложенный в цикл код выполнится (18-1)+1 = 18 раз
h, m: string;
begin
readln(C);
C := C * 2;
if (C div 60 < 10) then h := '0' + inttostr(C div 60);
if (C mod 60 < 10) then m := '0' + inttostr(C mod 60);
writeln(h, ':', m);
end.
Сам такое недавно делал, только на КуМИР'е)