<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=Arr(3,9,1,3,5,8,5,3,6,7,6,5,4,6,1,81); a.Println;
a.IndexesOf(t->t=a.Min).Select(t->t+1).Println
end.
<u>Результат</u>
3 9 1 3 5 8 5 3 6 7 6 5 4 6 1 81
3 15
Program zadacha;
var x:integer;
begin
readln(x);
if (x>=0) and (x<=10) then writeln(x*x)
else writeln(sqrt(x));
end.
Объяснение:
0,5 Кбайт = 1024 / 2 = 512 байт
512 байт = 512 * 8 = 4096 бит
4096 / 1024 = 4 бита
Один символ - 4 бита.
Алг<span> БИТ1</span>
вещ<span> А, В, С, D</span>
нач<span> ввод А, B, С</span>
если<span> А>В</span>
то<span> D:=A</span>
иначе<span> D:=B</span>
кв
если<span> C>D</span>
то<span> D:=C</span>
кв
<span> вывод D </span>
<span>кон</span>
1+2:3+1
1*(2+3-4)=1
1+2*3-4+5+1