Var d,time,hours,min:integer;
begin
readln(d);
time:=d*120;
hours:=time div 3600;
min:=time mod 3600 div 60;
writeln('it is ',hours,' hours ',min,' minutes');
end.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadArrInteger(ReadInteger('n='));
Writeln('Нечетных двухзначнык: ',
a.Where(t->t.IsOdd and Abs(t).Between(10,99)).Count)
end.
<u>Пример</u>
n= 15
230 256 59 60 291 190 62 -234 -43 228 -154 62 -58 58 100
Нечетных двухзначнык: 2
8=3бит
32=5бит
64=6бит
128=7бит
256=8бит
524=9бит
1024=10бит
Var
x,y:real;
begin
Write('Введите координаты точки: ');
Read(x,y);
if (y>=-x*x) and (y>=-x-2) and (x<=0) then Writeln('Входит')
else Writeln('Не входит')
end.
Тестовое решение
Введите координаты точки: -1 -0.5
Входит
Const n= 10;
var i,m: integer;
aa:array[1..n] of integer;
begin m:= 1;
for i:= 1 to n do
begin
aa[i]:= random(100);
if (aa[i] mod 2 = 0) then m:= aa[i] * m;
end;
writeln(m);
end.