<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
begin
var x:=-3.14;
while x<=3.14 do begin
Writeln(x:5:2,' ',sqr(sin(x))+sqr(cos(x)));
x:=x+0.2
end
end.
Результат
-3.14 1
-2.94 1
-2.74 1
-2.54 1
-2.34 1
-2.14 1
-1.94 1
-1.74 1
-1.54 1
-1.34 1
-1.14 1
-0.94 1
-0.74 1
-0.54 1
-0.34 1
-0.14 1
0.06 1
0.26 1
0.46 1
0.66 1
0.86 1
1.06 1
1.26 1
1.46 1
1.66 1
1.86 1
2.06 1
2.26 1
2.46 1
2.66 1
2.86 1
3.06 1
Ответ:<span>
</span>f16(16)<span> + </span>7(16)<span> = </span>f1d(<span>16)
</span>f1d(16) + 3(16) = f20(<span>16)</span>
1)Азбука морзе:
Информатика - ..-....-.- - - .-.- -.--..-.-.-
2)Таблица Юникод(Unicode):
Инофрматика : 0428 041D 0424 041E 0420 041C 0410 0422 0418 041A 0410
3) Кодовая Таблица Символов:
Информатика : 136 173 228 174 224 160 226 168 170 160
<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
Ирфонматика
Ответ:
numbers = []
while True:
num = int(input())
if num == 0:
break
numbers.append(num)
total = 0
counter = 0
for x in numbers:
if x >= 10 and x <= 99:
total += x
counter += 1
if counter:
average = total / counter
print("Среднее двухзначных: {}".format(average))
elif not counter:
print("NO")
Объяснение:
1) С количеством чисел чёт не совсем понял, если что, сам допишешь в цикле
Тебе главное понять алгоритм