Question

написати програму паскаль. даю 50 балів!!!

Answer 1

1)

var

 sum,ost:real;

 n:integer;

begin

 write('Юра получает коп. в день: '); readln(n);

 ost:=0.75*n*365;

 sum:=trunc(ost);

 write('За год Юра сможет накопить: ');

 writeln(trunc(sum/100),' руб. ',sum-(trunc(sum/100)*100),' коп.');

end.

2)

var

 x,y,z:integer;

 b:real;

begin

 write('Значения x,y,z в градусах: '); readln(x,y,z);

 b:=(x+y)/(4*x-z*sqr(cos(y*pi/180)));

 writeln('b= ',b);

end.

Answer 2

Ответ:

// 1

var

 x, y: integer;

 z, rub: real;

begin

 write('введите траты Юры на сладости в копейках: ');

 readln(x);

 y := x * 4;

 z := ((y - x) / 3) * 365;

 rub := z / 100;

 writeln('Юра получает в день: ', y, ' копеек.');

 writeln('Юра получит в год ', z, ' копеек.', ' Или же ', rub, ' рублей.');

end.

// 2

uses crt;

var

 x, y, z: integer;

 b: real;

begin

 write('x,y,z: ');

 readln(x, y, z);

 b := (x + y) / (4 * x - z * sqr(cos(y)));

 writeln('b = ', b);

end.