1.
var
Hero:string;
begin
writeln('Введите имя вашего любимого киногероя: ');
readln(Hero);
writeln('Ваш любимый киногерой: ', Hero, '!');
end.
2.
k:=3; m:=k+1; → m:=3+1; // m = 4;
k:=m*m+5; → k:= 4*4+5; //k = 21;
k:= k-10; → k:= 21-10; // k = 11;
Нам надо было найти значение, хранящееся в переменной m: m = 4.
Проанализируем номера финишировавших бегунов: 12219,
14176, 7133, 990. Данная числовая последовательность, на первый взгляд, не
упорядочена, т.к. после первого числа сначала следует большее, а потом –
меньшее. Но, обращая внимание на три последних цифры в числах и, выписав их,
замечаем, что прослеживается довольно простая зависимость: 219, 176, 133, т.е.
каждое последующее число меньше предыдущего на 43. Действительно,
219-176=43; 176-133=43. Проверяем догадку: 133-90=43.
Следовательно, следующее число 90-43=47. Что же представляют из себя старшие
разряды номеров финишировавших спортсменов? Можно заметить, что они
представляют из себя сумму цифр последующих разрядов, т.е.: 2+1+9=12; 1+7+6=14;
1+3+3=7;
9+0=9. Значит, необходимо найти сумму цифр полученного
нами числа 47.
<span>4+7=11. Следовательно, номер спортсмена,
финишировавшего пятым, равен 1147.</span>
Function IsPrime(n:longint):boolean;
var
found:boolean;
p:longint;
begin
if n<4 then IsPrime:=True
else begin
found:=(n mod 2=0);
p:=3;
while (not found) and (sqr(p)<=n) do
begin found:=(n mod p=0); p+=2 end;
IsPrime:=not found
end
end;
var
a,b,i:longint;
begin
Write('Введите начало и конец интервала: ');
Readln(a,b);
for i:=a to b do
if IsPrime(i) then Write(i,' ');
Writeln
end.
В стандартном калькуляторе windows(calc.exe) есть средства для работы с системами счисления. Открываете его, переходите по пункту меню "Вид", и выбираете "Программист". Правда сомневаюсь, что он сможет посчитать столь большие числа. Или ищите какой-либо онлайн-калькулятор для расчета с.с, который в состоянии подсчитать числа в столь большом диапозоне.