ответ: Проверенно
Этот код преднозначен для решения этого примера 'если a>b, то , иначе p^2=z'
x-3/x^2-2x+5
Program jnj;
var
a, b: real;
bool: boolean;
begin
writeln('Введите значение a:');
readln(a);
writeln('Введите значение b:');
readln(b);
begin
if a > b then
writeln(a - 3 / sqr(a) - 2*a + 5) end;
begin
if a <= b then
writeln('z = ', sqr(b));
end;
end.
program jnj;
Этот код преднозначен для решения корень y+x=z
var
y, x: real;
begin
writeln('Введите y:');
readln(y);
writeln('Введите x:');
readln(x);
writeln('z = ', sqrt(y + x), ';');
end.
Оба кода разные, поэтому вводить их нужно поочередно
Ты почти правильно все написала :)
var a : array[1..30] of integer; // определяем массив, который будет состоять из 30 чисел типа integer (целых)
i, sum : integer; // Переменная i для итерации в цикле, sum - для суммы
begin
sum := 0; //В начале сумма равна нулю
randomize(); //инизициализиуем датчик псевдослучайных чисел
for i := 1 to 30 do begin // цикл, который будет повторяться 30 раз
a[i] := random(0,10); // Говорим, что элемент с индексом i в массиве равен рандомному числу от 0 до 10
sum := sum + a[i]; // Прибавляем к переменной sum элемент массива с индексом i
end;
write('Сумма: ' + sum) //Выводим
end.
