Предмет: Информатика,
автор: chikprada
помогите написать программы в pascal ABC (program,var,begin,end)
Приложения:

Ответы
Автор ответа:
0
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.
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.
Автор ответа:
0
спасибо большое,вы меня спасли
Автор ответа:
0
не за что
Похожие вопросы
Предмет: Математика,
автор: liza1303200988
Предмет: Химия,
автор: vasapetrovuch990
Предмет: Математика,
автор: ernarmurat2010
Предмет: Право,
автор: olgalesnikova