PASCAL ABC. Найти значение любого выражения из двух слагаемых!!! т.е. просто чтоб посчитало, например: 2+2=4, 9/3=3, 7*7=49, 15-5=10
Ответы
Ответ дал:
0
var
x,y,v:real;
b:string;
begin
writeln('Vvedite znak virajeniya (+, -, *, /)');
readln(b);
writeln('Vvedite pervoe chislo');
readln(x);
writeln('Vvedite vtoroe chislo');
readln(y);
if b = '+' then v:=x+y;
if b = '-' then v:=x-y;
if b = '*' then v:=x*y;
if b = '/' then v:=x/y;
writeln(x, ' ', b, ' ', y, ' = ', v);
end.
x,y,v:real;
b:string;
begin
writeln('Vvedite znak virajeniya (+, -, *, /)');
readln(b);
writeln('Vvedite pervoe chislo');
readln(x);
writeln('Vvedite vtoroe chislo');
readln(y);
if b = '+' then v:=x+y;
if b = '-' then v:=x-y;
if b = '*' then v:=x*y;
if b = '/' then v:=x/y;
writeln(x, ' ', b, ' ', y, ' = ', v);
end.
Вас заинтересует
1 год назад
5 лет назад
8 лет назад
8 лет назад
9 лет назад