Нужно написать программу на паскале
Заполнить линейный массив по формуле: a[i]= √(x+7,4)-(3-y)/5
Заполнить линейный массив по формуле: a[i]= √(x+7,4)-(3-y)/5
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
//PascalABC.NET 3.3,сборка 1611 от 06.01.2018//Внимание! Если программа не работает, обновите версию!
begin
var n:=readinteger('n=');
var mas:= new real[n];
for var i:=0 to n-1 do
begin
var (x,y):=readreal2('x,y=');
mas[i]:=((x+7.4)**(1/2))-(3-y)/5;
end;
var k:=mas.Select(t->round(t*100)/100);
k.Println;
end.