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.
<span>Поименованное сложное действие, которое представляет собой совокупность операторов,вычисляющих некоторое число результатов в зависимости от некоторого числа аргументов называют - ПРОЦЕДУРОЙ.</span>
Const
m = 10;
var
a: array[1..m+1] of integer;
i, k: integer;
begin
write ('Исходный массив: ');
for i := 1 to m do
begin
a[i] := random(100);
write (a[i],'; ');
end;
writeln;
write('Введите число: ');
readln(k);
for i:=m+1 downto 1 do
begin
a[i]:=a[i-1];
if a[i] mod 2=0 then
begin
a[i-1]:=k;
break;
end;
end;
write('Измененный массив: ');
for i := 1 to m+1 do
write (a[i],'; ');
<span>end.</span>
НАЧАЛО. sum=0 m=10 k=0
k《5.Да k=k+1 sum=k+m m=m-2.
КОНЕЦ .
Var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (y>1-x)and(x<1)and((y>2*x*x)or(y<2*x*x)and(x>0))
then writeln('YES') else writeln('NO')
end.
Пример:
x = 0.75
y = 1
YES