1)
Var x: real;
Begin
writeln ('Введите число');
readln (x);
if x>0 then
writeln ('Число ', x, ' положительное')
else
if x<0 then
writeln ('Число ', x, ' отрицательное')
else
if x=0 then
writeln ('Число ', x, ' не является ни положительным, ни отрицательным');
End.
2.
Var x, y: real;
Begin
writeln ('Введите два числа');
readln (x,y);
if x>y then writeln (x)
else
if x<y then writeln (y)
else
if x=y then writeln ('Числа равны');
End.
3.
Var x, sum, pr: real;
i: integer;
Begin
sum:=0;
pr:=1;
For i:=1 to 5 do
begin
write ('Введите число: ');
readln (x);
sum:=sum+x;
pr:=pr*x;
end;
writeln ('Сумма чисел = ', sum);
writeln ('Произведение чисел = ', pr);
if sum>pr then writeln (sum)
else
if sum<pr then writeln (pr)
else
if sum=pr then writeln ('Сумма и произведение равны');
End.
Во втором вложении - правила преобразования и список эквивалентных символов для записи операций.
190 (16) = 110010000 (2)
если я правильно понял, то тогда так
Ладно, раз все эти нюансы не важны, то вот так:
program Project1;
var
x,y, d: real;
begin
write(' Enter X:');
readln(x);
write('Enter Y:');
readln(y);
d:= ((abs(x)-abs(y)))/((1+abs(x*y)));
writeln(d:0:5);
readln;
end.
Ответ:
С++
#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL, "rus");
int a, b, c;
cout<<"введите кол-во книг, стоящих на полке"<<endl;
cin>>a;
cout<<"введите количество полок"<<endl;
cin>>b;
c=a*b;
cout<<"кол-во книг в магизине: "<<с<<endl;
}
Объяснение:
чтобы найти количество книг нужно вычислить произведение кол-во книг на одной полке и кол-во полок.