Антон Федорян

По моему этот. Недавно находил на сайтах фриланса. Попробуйте там тоже поискать среди проектов. Для практики там и ищу.

source

Можно конечно макросом, но если строчек будет 10000 или часто вносится изменения - нецелесообразно
Есть уже встроенные методы:

Работать с такими огромными числами нет смысла.
Проще обрабатывать только последние символы, т.е. для 100^100, например:
- 100*100 = 10000
- переводим 10000 в строку
- если длина '10000' > 10, то берем только последние 10 символов
- переводим эти символы снова в число
- запускаем цикл от 1 до 98 (100 - 2) и перемножаем это число на 100 (98 раз), каждый раз беря только последние 10 символов

- Сесть за дело
- Победить всех в Dota и выключить ее на время занятий
1 - создать саму страницу с формой средствами HTML
2 - установить/настроить PHP (или Denver чтоб не возиться)
3 - прочитать простой пример PHP + MySQL
... гуглить непонятные моменты и учиться на ошибках
n - profit!!!
- Лабораторная готова.

Вот так

Например, так:

var
	a: longint;
begin
	writeln('Введите целое число(не более 2100000000)');
	readln(a);
	while (a <> 0) do
		begin
			if a mod 2 = 0 then
				writeln('Это число четное')
			else
				writeln('Это число нечетное');
			writeln('Введите целое число(не более 2100000000)');
			readln(a);
		end;
end.

А таймер какую роль должен играть?

Вот вам неймется :) пока с работы ехал еще вопрос придумали!
Пробуйте это:

Sub Macros()
    Dim i, j, counter As Integer
    
    counter = 1
    i = 1
    While Sheets("Лист1").Cells(i, 1) <> ""
        j = 2
        While Sheets("Лист1").Cells(i, j) <> ""
            Sheets("Лист2").Cells(counter, 1) = Sheets("Лист1").Cells(i, 1) & Sheets("Лист1").Cells(i, j)
            counter = counter + 1
            j = j + 1
        Wend
        i = i + 1
    Wend
End Sub

UpD:

Sub Macros()
    Dim i, j, counter As Integer
    
    counter = 1
    i = 1
    While Sheets("11").Cells(i, 1) <> ""
        j = 2
        While Sheets("11").Cells(i, j) <> "Конец"
            If Sheets("11").Cells(i, j) = "" Then
                j = j + 1
            Else
                Sheets("22").Cells(counter, 1) = Sheets("11").Cells(i, 1)
                Sheets("22").Cells(counter, 2) = Sheets("11").Cells(i, j)
                counter = counter + 1
                j = j + 1
            End If
        Wend
        i = i + 1
    Wend
End Sub

Да нет, с синтаксисом порядок, у меня отработал без ошибок.
А на что ругается, может вместо "list2" написать "Лист2"?

Полезно будет использовать записью макроса