Пожалуйста,срочно.Составьте на двух языках алгоритм нахождения у,если у=(х+1)/2х.

Program SpTrap;
var y , x :integer;
begin
writeln (ВВеди переменную x);
readln (x);
y:=0
у=(х+1)/2х;
writeln(y=,y);
end
-----------------------------------------------------------------
1. Начало алгоритма
2. Ввод (х)
3. Если (х не равно 0) И (а не равно нулю)
4. y:= (х+1)/2х.
5. Иначе
6. Вывод (Функция не определена)
7. Конец алгоритма 
-----------------------------------------------------------------------------
1. Начало алгоритма
2. объявление переменных
3. Объявление (х)
4. Если (х не равно 0) И (x не равно нулю)
5. y:= (х+1)/2х.
6. Иначе
7. Вывод (Функция не определена) или (y=,y)
8. Конец алгоритма

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.