Регистрация
Малика20091
23.06.2023 11:53
Информатика
Есть ответ 👍

Написать фрагмент программы на основе заданного алгоритма в паскале: ввод x, y; если (x> 0) или (y< 0) то m=x+y/xy; если (x< 0l или =y> 0) то m=(x-y) (x+y) ; вывод m;

271
400
Посмотреть ответы 2

Ответы на вопрос:

strume54
strume54
4,7(73 оценок)
Обратите внимание, если во втором условии y> =0, то необходимо заменить знак в программе program ryazantsev; var x,y,m: real; begin m: =0; readln(x, y); if (x> 0) and (y< 0) then m: =(x+y)/(x*y); if (x< 0) or (y> 0) then m: =(x-y)/(x+y); //y> 0 или y> =0 - у вас ошибка в условии writeln(m) end.
nik20042002
nik20042002
4,7(71 оценок)

const n=15;

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

b: array [1..n] of real;

i: integer;

begin

write('       исходный массив: ');

for i: =1 to n do

begin

a[i]: =random(41)-20;

write(a[i]: 5);

if a[i] mod 5 = 0 then b[i]: =a[i]*2

else b[i]: =a[i]/2

end;

writeln;

write('преобразованный массив: ');

for i: =1 to n do write(b[i]: 5);

end.

Популярно: Информатика