var y, x: <em>real</em>;
begin
write('x = ');
read(x);
y:=sqr(x)-6*x;
if (y>=0) then begin y:=sqrt(y)/(x+3);
write('y = ', y:5:3);
end
else write('В процессе вычислений корень оказался отрицательным, поэтому вычислить его невозможно')
end.
С:
/ \
рисунки мои документы
| |
времена года 7 класс
/ \ |
снеговик.bmp открытка.bmp литература
|
сочинение.doc
Если в секундах получается 1,8 секунда, а если в минутах то 0,03 минуты.
Ответ:
program dvuznach;
var a,b,c,d,f:integer;
begin
writeln('Введите двузначное число');
readln(a);
b:=a div 10;
c:=a mod 10;
d:=b+c;
f:=b*c;
writeln('Сумма=',d);
writeln('Произведение=',f);
end.
Объяснение:
Program cyberforum795718;
var a,b,c,d,f,q:integer;
e:real;
begin
writeln('введите первую цифру');
readln(a);
writeln('введите вторую цифру');
readln(b);
writeln('выберите,что вы хотите сделать с этими числами,1-сложение,2-вычитание,3-умножение,4-деление');
readln(q);
if (q=1) then begin d:=a+b;
writeln('ваш результат',d);end;
if (q=2) then begin f:=a-b;
writeln('ваш результат',f); end;
if (q=3) then begin c:=a*b;
writeln('ваш результат',c);end;
if (q=4) then begin e:=a/b;
writeln('ваш результат',e);end;
end.
если эт Паскаль