Помогите решить задания по информатике!

А что тут решать? - Тут либо блок-схему рисовать надо, либо программу писАть (в зависимости от того, что Вы проходите), либо и то, и другое. Если программу писАть, то желательно писАть на том языке программирования (а языков программирования существует порядка 40), какой Вы изучаете. Вот, например, на Паскале:

№1:

 Program P1; 

uses crt; 

var A, B, C, D: real; 

begin 

clrscr; 

writeln ('Введите с клавиатуры значения переменных (только числа). После ввода каждого значения нажимайте клавишу Enter. При вводе дробных значений целую часть от дробной отделяйте точкой, а не запятой.'); 

write ('Введите значение переменной A: A='); 

readln (A); 

write ('Введите значение переменной B: B='); 

readln (B); 

write ('Введите значение переменной C: C='); 

readln (C); 

write ('Введите значение переменной D: D='); 

readln (D); 

if C+D=0 then writeln ('Ошибка: происходит деление на 0.') else writeln ('Ответ: y=', (A+B)/(C+D)); 

write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 

readkey; 

end. 

№2:

 Program P2; 

uses crt; 

var A, B: real; 

    M: integer; 

begin 

clrscr; 

writeln ('Введите с клавиатуры значения переменных (только числа). После ввода каждого значения нажимайте клавишу Enter.');

writeln ('Значения переменных A и B могут быть как целыми, так и дробными. При вводе дробных значений целую часть от дробной отделяйте точкой, а не запятой.'); 

write ('Введите значение переменной A: A='); 

readln (A); 

write ('Введите значение переменной B: B='); 

readln (B);

writeln ('Значение переменной M может быть ТОЛЬКО целым числом. При вводе дробного значения программа закроется с ошибкой.'); 

write ('Введите значение переменной M: M='); 

readln (M); 

if M=0 then writeln ('Ответ: Нет решений.') else 

if M

PascalABC:

var A, B, M, y : real;
begin
Write ( ' A = '); ReadLn (A);
Write ( ' B = '); ReadLn (B);
Write ( ' M = '); ReadLn (M);
if (M = 0) then Y := 0 else
if (M < 0) then y := (A + B) else
y := (A + B + M);
WriteLn ( ' y = ', y:5:3);
WriteLn;
end.