hakermaster
133. Program XxX;var a, b, x : real;beginwrite('Введите площадь и количество населения: ');readln(a, b);x:=a/b;if a = 0 then writeln('Это не верно!')else x:= b/a;writeln('x = ', x:6:2)end.135. Program XxX;var a,b,c,s:real;begin
0 votes Thanks 0
hakermaster
134.Program XxX; var a, b, x : real; begin write('введите a и b: '); readln(a, b); if a = 0 then writeln('уравнение не имеет решений (это не уравнение)!') else x := -b / a; writeln('x = ', x:6:2) end.
hakermaster
135. Program XxX; var a,b,c,s:real; begin write('введите катеты: '); write('a=');readln(a); write('b=');readln(b); c:=sqrt(a*a+b*b); writeln('C=',c); end.
hakermaster
134.Program XxX; var a, b, x : real; begin write('введите a и b: '); readln(a, b); if a = 0 then writeln('уравнение не имеет решений (это не уравнение)!') else x := -b / a; writeln('x = ', x:6:2) end.
hakermaster
133. Program XxX; var a, b, x : real; begin write('Введите площадь и количество населения: '); readln(a, b); x:=a/b; if a = 0 then writeln('Это не верно!') else x:= b/a; writeln('x = ', x:6:2) end.
Answers & Comments
var a, b, x : real;
begin
write('введите a и b: ');
readln(a, b);
if a = 0 then writeln('уравнение не имеет решений (это не уравнение)!')
else x := -b / a;
writeln('x = ', x:6:2)
end.
var a,b,c,s:real;
begin
write('введите катеты: ');
write('a=');readln(a);
write('b=');readln(b);
c:=sqrt(a*a+b*b);
writeln('C=',c);
end.
var a, b, x : real;
begin
write('введите a и b: ');
readln(a, b);
if a = 0 then writeln('уравнение не имеет решений (это не уравнение)!')
else x := -b / a;
writeln('x = ', x:6:2)
end.
var a, b, x : real;
begin
write('Введите площадь и количество населения: ');
readln(a, b);
x:=a/b;
if a = 0 then writeln('Это не верно!')
else x:= b/a;
writeln('x = ', x:6:2)
end.