// PascalABC.NET 3.4.2, сборка 1790 от 15.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var L := new List<integer>;
L.AddRange(Seq(1, 6, 7, 3, 5));
L.Println;
var A := ReadInteger('A=');
var s := L.ToArray.IndexesOf(t -> t mod 3 = 0);
var i2 := s.Skip(1).First;
L.Insert(i2 + 1, A);
L.Println;
L.RemoveAt(s.First);
L.Println;
L := L.SortedDescending.ToList;
L.Println
end.
Program prog;
Uses crt;
var n,s: integer;
begin
clrscr;
write('n = ');
readln(n);
repeat
s:=(n mod 10)+s;
n:=n div 10;
until
n=0;
writeln;
writeln('S = ', abs(s));
readln;
end.
Ответ:
а = 12
Объяснение:
1). в = 4
2). а = 4 / 2 * 6 = 2 * 6 = 12
program noname;
uses crt;
var
x,y:real;
begin
clrscr;
write('x='); readln(x);
write('y='); readln(y);
if (x>1) or (x<-1)or (y>1) or (y<-1) then
writeln('no')
else writeln('yes');
readkey;
end.
1. N=128 N=2^i i=7 - бит в одном байте. 7*5=35 бит - объем сообщения.