1)
var X:array[12] of real;
i: integer;
begin
for i:=1 to 12 do
begin
readln(X[i]);
X[i]:=X[i]-23;
end;
for i:=1 to 12 do
writeln(X[i])
end.
2)
var M:array[100] of integer;
i: integer;
begin
for i:=1 to 100 do begin
readln(M[i]);
if(M[i] mod 2=0) then M[i]:=M[i]*M[i]
else M[i]=2*M[i];
end;
for i:=1 to 100 do
writeln(M[i]);
end.
3)
var price:array[20] of real;
i:integer;
minprice:real;
begin
minprice:=10000;
for i:=1 to 20 do
begin
readln(price[i]);
if (price[i]<minprice) then minprice:=price[i];
end;
writeln(minprice)
end.
4)
var M:array[100] of integer;
i, counter: integer;
begin
readln(M[1]);
counter:=0;
for i:=2 to 100 do begin
readln(M[i]);
if ((M[i] mod 2=1) and (M[i-1] mod 2=1)) then inc(counter);
end;
writeln(counter)
end.
Var n,a,h,m,s:integer;
begin
writeln('Введите кол-во дней');
read(n);
if n>1 then begin
writeln('В ', n ,' сутках:');
writeln(n*24,' часа');
writeln(n*24*60,' минут');
writeln(n*24*60*60,' секунд')
end;
if n=1 then begin
writeln('В ',n,' дне');
writeln(n*24,' часа');
writeln(n*24*60,' минут');
writeln(n*24*60*60,' секунд');
end;<span>
end.
</span>
//PascalABC.Net 3.2
begin //true - если принадлежит, false - если не принадлежит
var x:=readreal ('x =');
var y:=readreal ('y =');
write ((sqrt(y*y+x*x)<=1) and (y>=0) and (y>=-x));
end.
N = 10 ** 9 + 13
d = 2
while n % d != 0:
d += 1
<span>print(d)</span>
<span>Ответ: 7699</span>