помогите решить

[Анастасия19]

дано целое число. если оно является положительным , то прибавить к нему 1;в противном случае вычесть из него 2.Вывести полученное число.

[BDA]

(display ((lambda (a) (if (> a 0) (+ a 1) (- a 2))) (read)))

А если серьезно, то:
1) Какой язык программирования?
2) Что вызывает затруднения?

[Анастасия19]

я совсем в этом программировании не понимаю!а задачи надо решить.

Паскаль помоему

на интервале от 30 до 50 найти сумму и количество элементов больших заданного Т. значение Т ввести с клавиатуры.
И на подобие у меня еще 5 задач, помогите решить. скоро сессия

[Акрам9898]

Если паскаль то вроде так:

var I: integer;
begin
if i=>0 then I:= I+1 else I:= I-2
end.

[Анастасия19]

спасибо попробую так

[Stilet]

Паскаль помоему

По твоему? О_о
А как препода зовут хоть знаешь?

на интервале от 30 до 50 найти сумму и количество элементов больших заданного Т

var n,i,t,s,c:integer;
begin
 readln(t);
 for i:=30 to 50 do begin
  if i>t then begin s:=s+i;inc(c); end;
 end; write(s:10,c:10); readln;
end.

И на подобие у меня еще 5 задач,

var i:integer;
begin
 for i:=1 to 5 do writeln('Задача ',i,' решена'); readln;
end.

[Анастасия19]

в первый час работы рабочий изготавливает 25 деталей, за каждый последующий час на 3 детали больше,чем за предыдущий.Подсчитать,сколько рабочий изготовит деталей за 8 часов работы.
Спасибо за помощь!!!!

[Акрам9898]

Сообщение от Анастасия19

в первый час работы рабочий изготавливает 25 деталей, за каждый последующий час на 3 детали больше,чем за предыдущий.Подсчитать,сколько рабочий изготовит деталей за 8 часов работы.
Спасибо за помощь!!!!

var i,a: integer
begin
 a:=25;
 for i:=1 to 8 do
 begin
  a:=a+3;
 end;
end.

[Аватар]

25*8+(3+21)*7/2=284=(25+46)*8/2
Если не 5-ом, то в 6-ом классе точно такие решают

[Анастасия19]

я все понимаю, но почему то мы такое не проходили(((