Убираем 100, дальше считать парами...1+99=100...2+98=100 считайте сколько пар, сумма которых 100 и прибавляете последнюю 100.
49*100=4900
4900+100=5000
плюс средняя цифра 50 останется без пары)
5000+50=5050
или ничего не убирать)
тогда сумма будет
100+1=101
99+2=101..........и т.д.
всего пар будет 100:2=50
50*101=5050
1)
uses crt;
var i:integer;
A:array[0..15] of integer;
begin
For i:= 0 to 15 do
A[i]:= i+1;
For i:= 0 to 14 do
A[i]:= A[i+1];
For i:=0 to 15 do
write(A[i],' ');
end.
2) Перемещает первый элемент массива в конец.
Форма, рик, кит, кіт, фарт, норма, корм, міф, роман, мати, фінт, фора, міра, мир, Рим, тік, романтика, Кіра, Рима, карта, рама, комар, марка, рак, кара, фара, рамка, рифма, тиран, Іран, Ірак, Каїр, морфін, факт, карат, таран, кіно, кома
Олимп. удалены по одной букве справа и слева от курсора