Какая последовательность символов может служить именем программы в языке Паскаль?
1)_test,
2)nos_56,
3)56_ttt,
4)Игорь 78.​

Задание №1.

k = int(input('Начало диапазона '))
n = int(input('Конец диапазона '))
a = [0] * n # создание массива с n количеством элементов
for i in range(n): # заполнение массива
   a[i] = i
a[1] = 0

m = 2 # замена на 0 начинается с 3-го элемента

while m < n: # перебор всех элементов до заданного числа
  if a[m] != 0:
     j = m * 2
    while j < n:
        a[j] = 0
        j = j + m
       m += 1

# вывод простых чисел на экран
b = []
for i in a:
      if a[i] != 0 and i >= k:
      b.append(a[i])

del a
print(b)

Задание №2

count = 0
for i in range(13):
    for j in range(11):
        for k in range(9):
            if 185 == i*15+j*17+k*21:
                count += 1
                print(i,j,k)
print('Всего

Задание №3

x = int(input())
print('\n'.join(
str(n) for n in range(x+1)
if all(x != 0 and n % x == 0 for x in map(int, str(n

//текуще время
#include <iostream>
#include <cstdlib>
#include <cstring>
using namespace std;

string dig(int n)
{   
   string st="";
   if (n>9) {  st=st+char(n%10+48);  st=char(n/10+48)+st; }
   else  st=st+'0'+char(n+48);
   return(st);
}

int main(int argc, char** argv) {
   int n,k,m,sc;
   string s="";
   cout<<"n = ";   cin>>n;  cout<<endl;
   k=n/3600;
   m=(n-k*3600)/60;
   sc=n-k*3600-m*60;
   if (k>24)  k=k%24;
   if (k<10)  s=s+char(k+48)+':';
   else s=s+dig(k)+':';
   s=s+dig(m)+':';
   s=s+dig(sc);
   cout<<"time:  "<<s<<endl;
   system("pause");
   return(0);
}