1)
Var
x,y:real;
Begin
Write('x = ');
ReadLn(x);
if x > -1 then y:=2*x-3
else y:=5*x*x;
WriteLn('y = ',y);
End.
Проверка:
x = 5
y = 7
x = -3.4
y = 57.8
2)
Var
A:integer;
Begin
Write('Введите целове число: ');ReadLn(A);
if A mod 2 <> 0 then Write('Число - нечётное')
else Write('Число является ЧЁТНЫМ')
End.
Пусть t - искомое время в секундах. За первые t/2 секунд была передана информация 2*t/2=t Мбит, за остальные t/2 секунд - информация 6*t/2=3*t Мбит. По условию, t+3*t=4*t=150 Мбайт=150*8=1200 Мбит, откуда t=1200/4=300 c или 300/60=5 мин. Ответ: 5 минут.
Var ar:array of integer;
max,i,n,j:integer;
begin;
max:=-2147483648; //нижняя граница integer
writeln('Введите размерность массива:'); //массив всегда приятнее
readln(n);
setlength(ar,n+1); //задали размерность динамического массива
for i:=1 to n do
begin;
write('Введите ',i, ' элемент массива:');
readln(ar[i]);
end;
for i:=1 to n do
for j:=1 to n do
if max<ar[i]*ar[j] then max:=ar[i]*ar[j];
writeln('Result:',max);
<span>end.</span>
<span>Память человека это высшая функция нервной деятельности, и процессы в которой не до конца изучены, я бы не стал называть ее строго оперативной. Она бывает кратковременной и долговременной, сенсорной, нервно мышечной. не может быть полноценно описана современными методами информатики</span>
Var
i, n, m: integer;
begin
readln(n, m);
for i := n to m do
begin
if (i mod 7 = 0) then
write(i div 7,' ')
else
write(i div 7 + 1,' ');
end;
end.
