uses crt;
var a,b,s:real; z:char;
begin
write('Vvedite A = ');
readln(a);
write(' + - / * : ' );
readln(z);
write('Vvedite B = ');
readln(b);
case z of
'+': begin s:=a+b; writeln(a,' + ',b,' = ',s); end;
'-': begin s:=a-b; writeln(a,' - ',b,' = ',s); end;
'*': begin s:=a*b; writeln(a,' * ',b,' = ',s); end;
'/': begin s:=a/b; writeln(a,' / ',b,' = ',s); end;
else
writeln('error: incorrect operation symbol!!!');
end;
readln;
end.
Var a:longint;
begin
read(a);
writeln(a*8388608);
end.
Ответ:одно равно - присваивание, два равно- сравнение
Объяснение:
if (A = ="myBill") {cout << "...." << endl; }
<span>Минимальным объектом, используемым в текстовом процессоре Microsoft Word, является: символ</span>