1)
uses crt;
var y,x:integer;
begin
writeln(x);
y:=COS(x/2)-SIN(x);
readln(y);
end.
2)
uses crt;
var a,y,x:integer;
begin
a:=0;
readln(x);
a:=0,5*x+1;
y:=0,5*sqr(a)+1,4*x-1;
writeln(y);
end.
3)
uses crt;
var d,x:integer;
begin
writeln(x);
d:=(1/3)*x*49+(4/6)*x*108+(2/6)*x*80;
readln(d);
end.
Ответ:
Почистите диск от лишних файлов (Либо увы переустанови игру в другой раздел диска, а лучше вообще на другой диск)
Объяснение:
Попробуй для начала перезапустить стим, и запустить игру, если не помогло попробуй решение из ответа
Program z1;
var a,b,c:real;
begin
writeln('введите 2 числа');
readln(a,b);
if (a>b) then c:=a/b
else c:=b/a;
writeln(c);
end.
Eсли задана точность то зачем задавать n? И наоборот.
100:4=25м2 можно огородить