Anton661
?>

Вкакой строчке допущена ошибка в программе, написанной на языке pascalabc? программа должна высчитывать корни квадратного уравнения при заданных значениях коэффициентов a, b, c. 1) program kvadruravn; 2) var; 3) a, b, c, d, x1, x2: real; 4) begin; 5) readln (a, b, c); 6) d : = b * b - 4 * a* c; 7) if d > = 0 then begin 8) if d < > 0 then begin 9) x1 : = (b + sqrt(d)) / (2 * a); 10) x2 : = (-b + sqrt(d)) / (2 * a); 11) writeln('x1 = ', x1: 4: 2, ', х2 = ', х2: 4: 2); 12) end 13) else begin 14) x1 : = -(b / 2 * a); 15) writeln ('x = ', x1: 4: 2); 16) end; 17) end 18) else begin 19) writeln ('решений нет! '); 20) end; 21) end. а) 5 б) 7 в)8 г) 9

Информатика

Ответы

Tatyana1426
1. В строке 2 после var не должна стоять точка с запятой - это синтаксическая ошибка.
2. В строке 4 после begin точка с запятой лишняя, но это допустимо.
3. В строке 9 формула x1 := (b + sqrt(d)) / (2 * a); записана неверно, должно быть x1:=(-b-sqrt(d))/(2*a); - ошибка при задании формулы
4. В строке 11 в контексте х2:4:2 указана русская х вместо латинской - это синтаксическая ошибка.

Из перечисленных вариантов строк с ошибками подходит только Г) 9 - это и должен быть ответ.

ответ: Г) 9
mursvita943

program z1;

var a:array[1..10] of integer;

i,s:integer;

begin

s:=0;

write('Массив: ');

for i:= 1 to 10 do

begin  

a[i]:=random(1000);  

write(a[i],'  ');

if (a[i]>99) and (a[i]<1000) and (a[i] mod 10 mod 2 = 0) and (a[i] div 100 mod 2 <> 0) then s:=s+a[i]

end;

writeln;

write('Сумма элементов массива среди, трехзначных чисел, у которых последняя цифра четная, первая нечетная: ',s)

end.

Объяснение:

(a[i]>99) and (a[i]<1000) - проверка числа на трёхзначность

(a[i] mod 10 mod 2 = 0) - проверка последней цифры числа на чётность

(a[i] div 100 mod 2 <> 0) - проверка первой цифры числа на нечётность

все условия соединены and, т.к. должны выполняться одновременно

d5806252

Текст — зафиксированная на каком-либо материальном носителе человеческая мысль; в общем плане связная и полная последовательность символов. Существуют две основные трактовки понятия «текст»: имманентная и репрезентативная.

Графический объект - это изображение в окне финансового инструмента, которое можно выделить, переместить, изменить или удалить. К графическим объектам относятся, например, горизонтальные и вертикальные линии, канал линейной регрессии, уровни Фибоначчи, прямоугольник, текстовая метка и пр.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Вкакой строчке допущена ошибка в программе, написанной на языке pascalabc? программа должна высчитывать корни квадратного уравнения при заданных значениях коэффициентов a, b, c. 1) program kvadruravn; 2) var; 3) a, b, c, d, x1, x2: real; 4) begin; 5) readln (a, b, c); 6) d : = b * b - 4 * a* c; 7) if d > = 0 then begin 8) if d < > 0 then begin 9) x1 : = (b + sqrt(d)) / (2 * a); 10) x2 : = (-b + sqrt(d)) / (2 * a); 11) writeln('x1 = ', x1: 4: 2, ', х2 = ', х2: 4: 2); 12) end 13) else begin 14) x1 : = -(b / 2 * a); 15) writeln ('x = ', x1: 4: 2); 16) end; 17) end 18) else begin 19) writeln ('решений нет! '); 20) end; 21) end. а) 5 б) 7 в)8 г) 9
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

viktoritut
nairahay
svetavalera
bugaevnicky
demon8608
prik-galina7390
heodbxbbshe
Aleksandrovna-Marina
ostapbender1111
dshi67orbru
Valerii276
Budanov317
Рафаэль633
Алена
eliteclassic308