Пожалуйста, помогите.прошу вас. завтра экзамен, боюсь завалить.Очень нужна ваша...

Question

Пожалуйста, помогите.прошу вас. завтра экзамен, боюсь завалить.Очень нужна ваша помощь!!!!!!Заранее говорю вам спасибо, и очень жду!

Comments

Паскаль?

---

да!!!

---

Много заданий за маленькое кол-во баллов...

---

напишите хотя бы 2!!!!!!!!!!!!!

Answer 1

4-ое задание про "лет":
program zd;
var
a:1..40;
begin
writeln('Введите количество лет');
readln(a);
case a of
1,21,31: writeln('мне', a , 'год');
5..20, 25..30, 35..40: writeln('мне', a, 'лет');
2..4, 22..24, 32..34: writeln('мне',a, 'года');
end;
end.

Нашёл то, что было в тетрадке)

Comments

program zd1;

---

var
x,y: integer;
z:real;
begin
writeln('Введите Х');
readln(x);
z:=x*sin(x)-1/y*sqr(x+y);
writeln('z='), z:2:0);
end.
Это отдельная задача, не уверен, что правильно

---

var
x: integer;
у:real;
begin
writeln('Введите Х');
readln(x);
if x<0 then y:sqr(x)+1<br>else
y:2*x+1;
writeln('у='), у:2:0);
end.
3-я задача, вроде бы так