Var x,y: real;
begin
read(x);
y:=(2*x)/(4-x);
writeln('y=',y);
end.
Вторая задача
var k,i,p:integer;
begin
p:=1;
read(k);
for i:=1 to k do
if i mod 2=1 then p:=p*i;
writeln( 'p=',p);
end.
Запятые вокруг переменных во Writeln расставь =)
Строки в апострофах, переменные - без них, а всё это дело разделяется запятыми
Ответ:
а) Компьютер
б)
в)антивирус(вот ссылка на ответы https://www.datarc.ru/articles/10_sposobov_izbezhat_poteri_dannyh.html )
г) Внешняя памят компютера и внутреняя памят человека
д) *обработке) Компьютер
Объяснение:
X= -3 Y=5
<span>X= -2,5 Y=2,25 </span>
<span>X= -2 Y=0 </span>
<span>X= -1,5 Y=-1,75 </span>
<span>X= -1 Y=-3 </span>
<span>X= -0,5 Y=-3,75 </span>
<span>X= 0 Y=-4 </span>
<span>X= 0,5 Y=-3,75 </span>
<span>X= 1 Y=-3 </span>
<span>X= 1,5 Y=-1,75 </span>
<span>X= 2 Y=0 </span>
<span>X= 2,5 Y=2,25 </span>
<span>X= 3 Y=5 </span>
Программы для решения задач - в прилагаемом файле.