Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
s
Uses CRT; Var a,b:Real; otw:Real; v:Char; Begin ClrScr; Write('Perwoe chislo: ');ReadLN(a); Write('Logiceskay operaciy: ');Readln(v); Write('Wtoroe chislo: '); ReadLN(b); Case v of '+':begin otw:=a+b end; '-':begin otw:=a-b end; '*':begin otw:=a*b end; '/':begin otw:=a/b end; else WriteLn('Ochibka wwoda operacii!'); end; WriteLN; WriteLN('Otwet: ',otw:5:3); ReadKey; End.
run
|
edit
|
history
|
help
0
For4
practica 11 ejercicio 6 BETA
nomer3
fgh
звёздное небо с подсчётом двойных звёзд
y
test22
practica 2 ejercicio 4
Поиск совершенного числа
basketball_player_training