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
5º Questão VS - 1º Sem. 2017
practica 3 ejercicio B3
Lab1SumWithWhile
Area of a Triangle
TanTai11A2@
corza71
Procedimientos Leer - Poblar - Mostrar
09
Naloga 3: 4.7.2016
калькулятор