<u>PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadlnString;
var (m,n):=ReadInteger2('Введите через пробел m и n:');
Swap(a[m],a[n]); a.Println;
end.
<u>Пример</u>
Информатика
Введите через пробел m и n: 5 2
Ирфонматика
Попробуй создать цикл, в котором К будет увеличиваться на +1, пока не будет больше n, зная формулу суммы арифметической прогрессии. В данном случае она примет вид: ((1+К)/2)*К
Задание 1:
S= 15
i= -1
1)s=5 ; i=4
2)s=9; i=3
3)s=12 ; i=2
4)s=14 ; i=1
5)s=15 ; i=0
6)s=15 ; i= -1
задание 2:
с
#include <iostream>
int main() {
for(;;) {
double sg, pk_1 = 3.26;
std::cin >> sg; // Вводишь расстояние до звезды
std::cout << sg / pk_1 << std::endl;
if (sg == 0) break; // если вводишь 0, программа завершается
}
return 0;
}
// программа выводит на экран значение расстояния до звезды в парсеках