Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
655+99
program calc; uses crt; label metka; var a,b,sum:real; symbol1,symbol2,symbol3:char; begin clrscr; writeln; writeln('vvedite deystvie 4ere3 probel naprimer 4 - 2'); writeln; writeln; metka: readln(a,symbol1,symbol2,symbol3,b) ; writeln; case symbol2 of '+':sum:=a+b; '-':sum:=a-b; '*':sum:=a*b; '/':sum:=a/b; else begin writeln('nekorrektno vvedeno deystvie, vvedite pravilno'); goto metka; end; end; writeln('otvet:',sum:6:2,'.'); writeln; writeln('************************** ********** ****************************'); readln; end.
run
|
edit
|
history
|
help
1
sample code
a6
Vídeo01 - Main
BFS ALGO
text
bla bla
Free v Bucks Codes
Get missed element in integer collection
BTC sell estimator
SpiltStringBetweenSpecialCharacters