_____________________________
<em>// PascalABC.NET 3.2, сборка 1345 от 24.11.2016</em>
<em>// Внимание! Если программа не работает, обновите её версию!</em>
begin
Writeln(' x x^2 x^3');
for var i:=1 to 50 do Writeln(i:3,i*i:5,i*i*i:8);
end.
<u>Результат</u>
x x^2 x^3
1 1 1
2 4 8
3 9 27
4 16 64
5 25 125
6 36 216
7 49 343
8 64 512
9 81 729
10 100 1000
11 121 1331
12 144 1728
13 169 2197
14 196 2744
15 225 3375
16 256 4096
17 289 4913
18 324 5832
19 361 6859
20 400 8000
21 441 9261
22 484 10648
23 529 12167
24 576 13824
25 625 15625
26 676 17576
27 729 19683
28 784 21952
29 841 24389
30 900 27000
31 961 29791
32 1024 32768
33 1089 35937
34 1156 39304
35 1225 42875
36 1296 46656
37 1369 50653
38 1444 54872
39 1521 59319
40 1600 64000
41 1681 68921
42 1764 74088
43 1849 79507
44 1936 85184
45 2025 91125
46 2116 97336
47 2209 103823
48 2304 110592
49 2401 117649
50 2500 125000
using System; // для данной задачи достаточно подключить только одну библиотеку
namespace ConsoleApplication1
{
class Program
{
static void Main(string[] args)
{
int n;
n = int.Parse(Console.ReadLine()); //была ошибка - переменной не было присвоено значение
int[] mas = new int[n];
Random ran = new Random();
for (int i = 0; i<n;i++) // была ошибка - неправильное объявление цикла for
{
mas[i] = ran.Next(1, 10);
Console.Write("{0}\t", mas[i]); // был пропущен \
}
Console.WriteLine();
int p = 1;
for (int i = 0; i<n;i++) // была ошибка - неправильное объявление цикла for
{
if (mas[i] % 3 == 0) p = p * mas[i];
}
Console.WriteLine("Произведение элементов кратных 3 = {0}", p);
Console.ReadLine();
}
}
}
<span>program Metka;
\\ Даем имя метке
label M1;
</span>
<span><span>\\ Даем имя переменной х
</span>var x: shortint;
</span>
<span><span>\\ Начало программы
</span>begin
</span>
<span><span>\\ Выводим текст с просьбой ввода числа
</span>M1:writeln ('Введите x>100');
</span>
<span><span>\\ Запрос на ввод числа
</span>readln(x);
</span>
<span><span>\\ Если введенное число <=100 то идем на М1
</span>if x<=100 then GOTO M1
</span>
<span><span>\\ Конец программы
</span>end.</span>
Два недочета
1) нет точки с запятой после <span>writeln ('x>100')
2) Неверное условие - должно быть <=, т.к. при х=100 условие х>100 не должно выполняться.
</span>3) Желательно попросить ввести х>100 - слово Введите - не лишнее
Так?
зы.сы Если лишний текст не нужен - напиши. Или сам убери.