Кто понимает паскаль! y1=sqrt(x); y2=1/x; y3=x/2 x∈[1; k] c началом 0,5.

sanekmmg1980 sanekmmg1980    3   05.06.2019 12:10    0

Ответы
Віка12341 Віка12341  05.07.2020 23:23
Var x,y1,y2,y3:real;
k:integer;
begin
readln(k);
x:=1;
repeat
y1:=x;
write(y1:3:2,' ');
y2:=1/x;
write(y2:3:2,' ');
y3:=x/2;
write(y3:3:2);
x+=0.5;
writeln;
until x>k;
end.

как я понял
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика