Ответ:
program Calc;
var
k, x, a, c, y: Double;
begin
Write ('k, x, a, c = ');
ReadLn (k, x, a, c);
if x > 0 then begin
y := k * Sqr (x);
WriteLn ('y = ', y);
end else if a + c <> 0 then begin
y := - x / (a + c);
WriteLn ('y = ', y);
end else
WriteLn ('деление на ноль');
ReadLn;
end.
Ответ:
div - целая часть от деления: a=42;
mod - остаток от деления: b=2;
BF(16)=191 (10)
C1(16)=193(10)
между ними число 192 (10)= С0(16)
Const n=10;
<span>var i,s,k:integer;
a:array [1..n] of integer;
begin
for i:=1 to n do begin
// 1) //случайные числа
</span>a[i]:=random(20); //используя функцию randomize генерируем случайные числа
<span> write(a[i],' ');
//2)натур. ряд чисел
</span>a[i]:=i; //присваиваем элементу массива его номер
<span><span> write(a[i],' ');
</span> //3)заполнить с клав.
</span>write('введите ',i,' число массива ');
<span> readln(a[i]); </span><span>
//4) сред. ариф. кратн 2
</span>a[i]:=random(20); //создадим рандомный массив<span>
write(a[i],' '); // выведем на экран
if a[i] mod 2 = 0 then begin //если кратно 2, то....
</span>s:=s+a[i]; //считаем сумму всех чисел кратных 2
<span><span> k:=k+1; // считаем кол-во таких чисел
end;
</span> end;
//2 стоки ниже относятся только к 4 пункту
</span>writeln;
<span> writeln('среднее арифметическое элементов, кратных 2 = ',s/k);
//ниже относится к ручному вводу
writeln;
for i:=1 to n do write(a[i],' ');
end.
как-то так) старался некоторые моменты пояснять комментариями</span>